OFFSET
0,2
COMMENTS
A permutation of the natural numbers.
MATHEMATICA
Module[{nn=10, pr, cm}, pr=Prime[Range[(nn(nn+1))/2]]; cm=Complement[Range[ 2, Max[pr]], pr]; Join[{1}, Flatten[Thread[{TakeList[cm, Range[nn]], TakeList[ pr, Range[ nn]]}]]]](* Harvey P. Dale, Aug 04 2022 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Oct 31 2002
STATUS
approved