|
%I #13 May 24 2020 15:05:58
%S 1592653,6535897,2643383,5028841,6939937,3993751,348253,1170679,
%T 8086513,5822317,1725359,4930381,2881097,4612847,3165271,2712019,
%U 1201909,4914127,917153,1133053,3841469,1469519,6951941,9433057
%N Primes from merging of 7 successive digits in decimal expansion of Pi.
%C Leading zeros are permitted so some terms may have fewer than 7 digits. For example, 223, 907, 3137, and 4229 are all terms. - _Harvey P. Dale_, May 24 2020
%H Vincenzo Librandi, <a href="/A104827/b104827.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 7, 1]}, Select[pi, PrimeQ]] (* _Vincenzo Librandi_, Apr 21 2013 *)
%Y Cf. A104819 - A104842.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 27 2005
|
