%I #33 Mar 03 2024 11:41:17
%S 2,2,6,10,14,18,18,22,26,30,30,34,38,42,42,46,50,54,54,58,62,66,66,70,
%T 74,78,78,82,86,90,90,94,98,102,102,106,110,114,114,118,122,126,126,
%U 130,134,138,138,142,146,150,150,154,158,162,162,166,170,174,174
%N a(1) = a(2) = 2; for n > 2, a(n) = a(n-1) if n is already in the sequence, a(n) = a(n-1) + 4 otherwise.
%C First differences are 4-periodic.
%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.
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (1, 0, 0, 1, -1).
%F From _Chai Wah Wu_, Jul 17 2016: (Start)
%F a(n) = a(n-1) + a(n-4) - a(n-5) for n > 6.
%F G.f.: -2*(-1 - 2*x^2 - 2*x^3 - x^4 - 2*x^5 + 2*x^6)/((-1 + x)^2*(1 + x + x^2 + x^3)). (End)
%t Join[{2}, LinearRecurrence[{1, 0, 0, 1, -1}, {6, 10, 14, 18, 18}, 60]] (* _Jean-François Alcover_, Sep 02 2018 *)
%t CoefficientList[Series[-2*(-1 - 2 x^2 - 2 x^3 - x^4 - 2 x^5 + 2 x^6)/((-1 + x)^2 (1 + x +x^2 + x^3)), {x, 0, 60}],x] (* _Stefano Spezia_, Sep 02 2018 *)
%Y Cf. A080455, A080457, A080458, A080036, A080037.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Mar 20 2003
%E a(1) = 2 prepended by _Stefano Spezia_, Sep 04 2018