0,2

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

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

Sequence in context: A000818 A016959 A000768 this_sequence A128987 A017031 A145218

Adjacent sequences: A081099 A081100 A081101 this_sequence A081103 A081104 A081105

nonn,base,more

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