OFFSET
1,1
COMMENTS
Leading zeros are not permitted, so each term is 2 digits in length.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2000
MATHEMATICA
With[{len=2}, 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, A198171, A198172, A198173, A198174, A104851, A198177.
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Oct 21 2011
STATUS
approved