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,changed
AUTHOR
Harvey P. Dale, Oct 21 2011
STATUS
approved