OFFSET
1,2
COMMENTS
A permutation of the positive integers.
LINKS
MATHEMATICA
terms = 72; a[1] = 1; a[n_] := a[n] = Complement[Range[Ceiling[6n/5]], Array[a, n-1]][[PrimeOmega[n]]]; Array[a, terms] (* Jean-François Alcover, Jun 06 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 13 2004
EXTENSIONS
More terms from Reinhard Zumkeller, Jan 09 2005
STATUS
approved