OFFSET
1,1
LINKS
C. Rivera, Prime puzzles
MATHEMATICA
With[{pid=Rest[RealDigits[Pi, 10, 1000][[1]]]}, Table[Select[ FromDigits/@ Partition[ pid, n, 1], PrimeQ, 1], {n, 20}]]//Flatten (* Harvey P. Dale, May 01 2017 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Jean-Christophe Colin (jc-colin(AT)wanadoo.fr), Oct 31 2002
STATUS
approved