|
%I #4 Sep 10 2013 17:01:52
%S 1,46,8910,12141516,1820212224,252627283032,33343536383940,
%T 4244454648495051,525455565758606263,64656668697072747576,
%U 7778808182848586878890,9192939495969899100102104105,106108110111112114115116117118119120121
%N Concatenation of next n nonprime numbers.
%t 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 *)
%Y Cf. A053067, A133013. Nonprime numbers: A018252.
%K base,easy,nonn
%O 1,2
%A _Omar E. Pol_, Nov 26 2007
%E More terms from _Harvey P. Dale_, Sep 10 2013
|
