OFFSET
1,1
LINKS
Jens Kruse Andersen, Table of n, a(n) for n = 1..10000
MATHEMATICA
Module[{upto=55, cmps, len}, cmps=Select[Range[10*upto], CompositeQ]; len= Min[ Length[ cmps], upto]; #[[1]]*10^IntegerLength[#[[2]]]+#[[2]]&/@ Thread[{ Range[ len], Take[cmps, len]}]] (* Harvey P. Dale, Dec 05 2016 *)
PROG
(PARI) n=0; for(k=4, 1e3, if(isprime(k), k++); print1(n++k", ")) \\ Charles R Greathouse IV, Jun 21 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Kausthub Gudipati, Jun 20 2011
STATUS
approved