%I #15 Nov 25 2018 05:33:04
%S 3,6,10,13,16,20,23,26,29,33,36,39,43,46,49,53,56,59,62,66,69,72,76,
%T 79,82,86,89,92,96,99,102,105,109,112,115,119,122,125,129,132,135,138,
%U 142,145,148,152,155,158,162,165,168,171,175,178,181,185,188
%N a(1)=3; for n>1, a(n)=a(n-1)+4 if n is already in the sequence, a(n)=a(n-1)+3 otherwise.
%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="https://arxiv.org/abs/math/0305308">Numerical analogues of Aronson's sequence</a>, arXiv:math/0305308 [math.NT], 2003.
%F a(n) = floor(n*r + 1/(1+r)) where r = (3 + sqrt(13))/2.
%t a[1] = 3; a[n_] := a[n] = a[n-1] + If[MemberQ[Array[a, n-1], n], 4, 3];
%t Array[a, 60] (* _Jean-François Alcover_, Nov 25 2018 *)
%Y Cf. A080455, A080456, A080457, A080458, A080036, A080037.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Mar 23 2003