A134793 Concatenation of next n nonprime numbers.
1, 46, 8910, 12141516, 1820212224, 252627283032, 33343536383940, 4244454648495051, 525455565758606263, 64656668697072747576, 7778808182848586878890, 9192939495969899100102104105, 106108110111112114115116117118119120121
Offset: 1
Programs
-
Mathematica
Module[{upto=35,comps,nn},nn=(upto(upto+1))/2;comps=Select[Range[nn], !PrimeQ[#]&];Table[FromDigits[Flatten[IntegerDigits/@Take[comps, {((i-1)(i))/2+1, (i(i+1))/2}]]],{i,25}]] (* Harvey P. Dale, Sep 10 2013 *)
Extensions
More terms from Harvey P. Dale, Sep 10 2013