|
%I #12 Mar 03 2016 15:32:10
%S 1,3,7,9,11,13,17,19,23,25,29,31,35,37,39,41,45,47,51,53,55,57,61,63,
%T 67,69,71,73,77,79,83,85,87,89,93,95,99,101,105,107,111,113,115,117,
%U 121,123,127,129,131,133,137,139,143,145,149,151,155,157,159
%N a(1)=1; for n>1, a(n)=a(n-1)+4 if n is already in the sequence, a(n)=a(n-1)+2 otherwise.
%H Ivan Neretin, <a href="/A080903/b080903.txt">Table of n, a(n) for n = 1..1000</a>
%H B. Cloitre, N. J. A. Sloane and M. J. Vandermast, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL6/Cloitre/cloitre2.html">Numerical analogues of Aronson's sequence</a>, J. Integer Seqs., Vol. 6 (2003), #03.2.2.
%H B. Cloitre, N. J. A. Sloane and M. J. Vandermast, <a href="http://arXiv.org/abs/math.NT/0305308">Numerical analogues of Aronson's sequence</a>, arXiv:math/0305308 [math.NT], 2003.
%t Fold[Append[#1, #1[[-1]] + If[MemberQ[#1, #2], 4, 2]] &, {1}, Range[2, 59]] (* _Ivan Neretin_, Mar 03 2016 *)
%Y Cf. A080578, A080900.
%K nonn
%O 1,2
%A _Benoit Cloitre_, Apr 01 2003
|
