|
%I #30 Aug 08 2021 15:08:45
%S 5,5882352941,588235294117,
%T 588235294117647058823529411764705882352941176470588235294117
%N Primes formed by the initial digits of the decimal expansion of 1/17, starting at the first nonzero digit in the expansion.
%C There is no other term with 126 or fewer digits.
%C No more terms < 10^20000. - _Jon E. Schoenfield_, Nov 02 2019
%t 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 *)
%o (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
%Y Cf. A007450.
%Y Corresponding sequences for 1/k: A242824 (k=7), A093676 (k=12), A242826 (k=13), A242827(k=14), A242833 (k=19).
%K nonn,base
%O 1,1
%A _Felix Fröhlich_, May 23 2014
|
