OFFSET
1,1
COMMENTS
Leading zeros are not permitted, so each prime is 10 digits in length. The terms are listed in the order in which they occur.
LINKS
Bruno Berselli, Table of n, a(n) for n = 1..1000
Simon Plouffe, Champernowne constant to 15000 digits
MATHEMATICA
With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[Cos[1], 10, 600][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bruno Berselli, Apr 30 2013
STATUS
approved