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 2890 digits
MATHEMATICA
With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[ChampernowneNumber[10], 10, 400][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
Select[FromDigits/@Partition[RealDigits[ChampernowneNumber[], 10, 1000][[1]], 10, 1], PrimeQ[#]&&IntegerLength[#]==10&] (* Harvey P. Dale, Dec 01 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bruno Berselli, Apr 30 2013
STATUS
approved