|
|
A134793
|
|
Concatenation of next n nonprime numbers.
|
|
0
|
|
|
1, 46, 8910, 12141516, 1820212224, 252627283032, 33343536383940, 4244454648495051, 525455565758606263, 64656668697072747576, 7778808182848586878890, 9192939495969899100102104105, 106108110111112114115116117118119120121
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|