A242828 Primes formed by the initial digits of the decimal expansion of 1/17, starting at the first nonzero digit in the expansion.
5, 5882352941, 588235294117, 588235294117647058823529411764705882352941176470588235294117
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Table[FromDigits[PadRight[{},n,{5,8,8,2,3,5,2,9,4,1,1,7,6,4,7,0}]],{n,60}],PrimeQ] (* Harvey P. Dale, Aug 08 2021 *)
-
PARI
lista(nn) = {v = [5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7, 0]; n = 0; for (i=0, nn, n = 10*n+ v[(i % 16)+1]; if (ispseudoprime(n), print1(#Str(n), ", ")););} \\ Michel Marcus, May 27 2014
Comments