|
|
A104824
|
|
Primes from merging of 4 successive digits in decimal expansion of Pi.
|
|
31
|
|
|
4159, 5897, 9323, 8419, 1693, 8209, 9749, 5923, 2089, 2803, 4211, 7253, 8111, 1117, 7019, 193, 8521, 6229, 1097, 6659, 8233, 7867, 1201, 9091, 5669, 4603, 4861, 3607, 4127, 631, 5881, 5209, 9209, 4091, 3643, 5903, 11, 113, 6521, 1511, 1609, 9433
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 4, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|