

A081102


Numbers k such that the first k digits of log_10(2) after the decimal point are primes.


0




OFFSET

1,2


LINKS



EXAMPLE

1 is listed because 3 is prime but 5 is not listed because 30102 is not prime.


MATHEMATICA

Do[ If[ PrimeQ[ FromDigits[ RealDigits[ N[ Log[10, 2], n + 10], 10, n] [ [1] ] ] ], Print[n] ], {n, 1, 10000} ]


CROSSREFS



KEYWORD

nonn,base,more


AUTHOR

John Sillcox (JMS21187(AT)aol.com), Apr 15 2003


EXTENSIONS

Offset corrected and a(5)a(6) added by Amiram Eldar, Jan 27 2021


STATUS

approved



