|
|
A242828
|
|
Primes formed by the initial digits of the decimal expansion of 1/17, starting at the first nonzero digit in the expansion.
|
|
4
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There is no other term with 126 or fewer digits.
|
|
LINKS
|
|
|
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 *)
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|