OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
sp0[n_]:=Module[{c=1, d}, While[d=FromDigits[Join[PadRight[{1}, n+1, 0], IntegerDigits[ c]]]; DigitCount[d, 10, 0]>n||CompositeQ[d], c=c+2]; FromDigits[ Join[ PadRight[ {1}, n+1, 0], IntegerDigits[c]]]]; Array[sp0, 20] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 30 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 25 2008
STATUS
approved