OFFSET
1,1
COMMENTS
Leading zeros are not permitted, so each term is 7 digits in length.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
With[{len=7}, Select[FromDigits/@Partition[RealDigits[Pi, 10, 1000][[1]], len, 1], IntegerLength[#]==len&&PrimeQ[#]&]]
CROSSREFS
Cf. A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812, A104824, A104825, A104826, A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A198161, A198162, A198163, A198164, A198165, A198166, A198167, A198168, A198169, A198170, A198172, A198173, A198174, A198175, A104851, A198177.
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Oct 21 2011
STATUS
approved