This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A080032 #32 Dec 19 2024 18:50:19
%S A080032 0,2,4,1,6,7,8,10,12,11,14,16,18,15,20,22,24,19,26,28,30,23,32,34,36,
%T A080032 27,38,40,42,31,44,46,48,35,50,52,54,39,56,58,60,43,62,64,66,47,68,70,
%U A080032 72,51,74,76,78,55,80,82,84,59,86,88,90,63,92,94,96,67,98,100,102,71,104
%N A080032 a(n) is taken to be the smallest positive integer not already present which is consistent with the condition "n is a member of the sequence if and only if a(n) is even".
%C A080032 The same sequence, but without the initial 0, obeys the rule: "The concatenation of a(n) and a(a(n)) is even". Example: "2" and the 2nd term, concatenated, is 24; "4" and the 4th term, concatenated, is 46; "1" and the 1st term, concatenated, is 12; etc. - _Eric Angelini_, Feb 22 2017
%C A080032 If "even" in the definition is replaced by "prime", we get A121053. - _N. J. A. Sloane_, Dec 14 2024
%H A080032 Michael De Vlieger, <a href="/A080032/b080032.txt">Table of n, a(n) for n = 0..10000</a>
%H A080032 Benoit 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 A080032 Benoit 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.
%H A080032 <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,2,0,0,0,-1).
%F A080032 For n >= 4 a(n) is given by: a(4m)=6m, a(4m+1)=4m+3, a(4m+2)=6m+2, a(4m+3)=6m+4.
%F A080032 From _Chai Wah Wu_, Apr 13 2024: (Start)
%F A080032 a(n) = 2*a(n-4) - a(n-8) for n > 11.
%F A080032 G.f.: x*(-3*x^10 + 2*x^9 - x^8 + 8*x^6 + 3*x^4 + 6*x^3 + x^2 + 4*x + 2)/(x^8 - 2*x^4 + 1). (End)
%t A080032 CoefficientList[Series[x*(-3*x^10 + 2*x^9 - x^8 + 8*x^6 + 3*x^4 + 6*x^3 + x^2 + 4*x + 2)/(x^8 - 2*x^4 + 1), {x, 0, 120}], x] (* _Michael De Vlieger_, Dec 17 2024 *)
%Y A080032 Cf. A079000, A080029, A080030, A121053. Equals A079313 - 1.
%K A080032 easy,nonn
%O A080032 0,2
%A A080032 _N. J. A. Sloane_, Mar 14 2003
%E A080032 More terms from _Matthew Vandermast_, Mar 21 2003