A101212 a(1) = 1; for n>=2, a(n) = A001222(n)th positive integer not yet in the sequence.
1, 2, 3, 5, 4, 7, 6, 10, 9, 11, 8, 14, 12, 15, 16, 19, 13, 20, 17, 22, 21, 23, 18, 27, 25, 26, 29, 30, 24, 32, 28, 36, 33, 34, 35, 39, 31, 38, 40, 43, 37, 44, 41, 46, 47, 45, 42, 52, 49, 51, 50, 54, 48, 57, 55, 59, 56, 58, 53, 63, 60, 62, 65, 69, 64, 67, 61, 70, 68, 72, 66, 76
Offset: 1
Keywords
Programs
-
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 *)
Extensions
More terms from Reinhard Zumkeller, Jan 09 2005
Comments