|
|
A104926
|
|
Primes from merging of 3 successive digits in decimal expansion of Pi^2.
|
|
1
|
|
|
401, 883, 449, 761, 151, 113, 353, 313, 641, 349, 937, 241, 419, 773, 223, 137, 467, 727, 761, 617, 677, 197, 563, 571, 769, 421, 571, 151, 617, 941, 251, 887, 307, 257, 853, 659, 577, 283, 379, 683, 331, 463, 541, 269, 227, 227, 709, 547, 859, 607, 647
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Pi.
|
|
MATHEMATICA
|
Select[FromDigits/@Partition[RealDigits[Pi^2, 10, 100][[1]], 3, 1], #>100&&PrimeQ[#]&] (* Vincenzo Librandi, Apr 23 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|