|
|
A104827
|
|
Primes from merging of 7 successive digits in decimal expansion of Pi.
|
|
1
|
|
|
1592653, 6535897, 2643383, 5028841, 6939937, 3993751, 348253, 1170679, 8086513, 5822317, 1725359, 4930381, 2881097, 4612847, 3165271, 2712019, 1201909, 4914127, 917153, 1133053, 3841469, 1469519, 6951941, 9433057
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
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
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 7, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|