%I #15 Aug 13 2019 23:03:21
%S 1,6,11,16,21,18,23,28,33,38,35,40,45,50,55,52,57,54,59,64,61,66,63,
%T 68,73,78,83,80,85,90,95,100,97,102,99,104,109,106,111,108,113,118,
%U 123,128,125,130,135,140,145,142,147,144,149,146,143,148,145,150
%N a(1)=1; for n>1, a(n)=a(n-1)-3 if n is already in the sequence, a(n)=a(n-1)+5 otherwise.
%H Peter Munn, <a href="/A081746/b081746.txt">Table of n, a(n) for n = 1..5000</a>
%H B. Cloitre, N. J. A. Sloane and M. J. Vandermast, <a href="https://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) - n is periodic with period 648.
%t a[n_] := a[n] = If[n == 1, 1, If[MemberQ[Array[a, n-1], n], a[n-1] - 3, a[n-1] + 5]]; Array[a, 58] (* _Jean-François Alcover_, Oct 05 2018 *)
%Y Cf. A081747, A081748, A080578, A080900, A080901, A080939.
%K nonn,look,hear
%O 1,2
%A _Benoit Cloitre_, Apr 05 2003