A134793 Concatenation of next n nonprime numbers.

1, 46, 8910, 12141516, 1820212224, 252627283032, 33343536383940, 4244454648495051, 525455565758606263, 64656668697072747576, 7778808182848586878890, 9192939495969899100102104105, 106108110111112114115116117118119120121

Offset

1,2

Links

Table of n, a(n) for n=1..13.

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 *)

Crossrefs

Cf. A053067, A133013. Nonprime numbers: A018252.

Sequence in context: A243648 A302114 A159380 * A177639 A222097 A152501

Adjacent sequences: A134790 A134791 A134792 * A134794 A134795 A134796

Keyword

base,easy,nonn

Author

Omar E. Pol, Nov 26 2007

Extensions

More terms from Harvey P. Dale, Sep 10 2013

Status

approved