Hello!(adsbygoogle = window.adsbygoogle || []).push({});

I got a problem:

I want to find out the first ten apocalyptical numbers.By definition, a number of the form 2^n that contains the digits 666 (i.e., the beast number) is called an apocalyptic number.

I tried to write a short program with mathematica:

l := Table[2^n, {n, 1, 1000}]

a := IntegerDigits[l]

Select[a, MatchQ[a, {6, 6, 6}], 10]

However, the result is always {}

What's wrong with the program above?

Can somebody give me an advice?

**Physics Forums - The Fusion of Science and Community**

Dismiss Notice

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Beast Numbers

Loading...

Similar Threads - Beast Numbers | Date |
---|---|

Python Writing numbers on the bars on a seaborn FacetGrid figure | Feb 5, 2018 |

Testing floating point numbers for equality | Jan 12, 2018 |

Multiplying Big Numbers Using FFT | Oct 17, 2017 |

C/++/# How to check if a list of numbers is random? | Sep 13, 2017 |

**Physics Forums - The Fusion of Science and Community**