|
|
A077156
|
|
a(0) = 1, followed by next n primes followed by next n composite numbers.
|
|
2
|
|
|
1, 2, 4, 3, 5, 6, 8, 7, 11, 13, 9, 10, 12, 17, 19, 23, 29, 14, 15, 16, 18, 31, 37, 41, 43, 47, 20, 21, 22, 24, 25, 53, 59, 61, 67, 71, 73, 26, 27, 28, 30, 32, 33
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
A permutation of the natural numbers.
|
|
LINKS
|
|
|
MATHEMATICA
|
Module[{nn=10, prs, cmps, len}, prs=Prime[Range[(nn(nn+1))/2]]; cmps= Select[ Range[ Max[ prs]], CompositeQ]; Join[{1}, Riffle[ TakeList[prs, Range[nn]], TakeList[ cmps, Range[ nn]]]]]// Flatten (* Harvey P. Dale, Apr 29 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|