|
%I #12 Jun 06 2017 03:05:29
%S 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,
%T 29,30,24,32,28,36,33,34,35,39,31,38,40,43,37,44,41,46,47,45,42,52,49,
%U 51,50,54,48,57,55,59,56,58,53,63,60,62,65,69,64,67,61,70,68,72,66,76
%N a(1) = 1; for n>=2, a(n) = A001222(n)th positive integer not yet in the sequence.
%C A permutation of the positive integers.
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%t 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 *)
%Y Cf. A001222.
%Y Inverse: A102454; A102453(n) = a(a(n)).
%Y Cf. A102455.
%K nonn
%O 1,2
%A _Leroy Quet_, Dec 13 2004
%E More terms from _Reinhard Zumkeller_, Jan 09 2005
|
