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 A283482 #7 Mar 19 2017 01:09:55 %S A283482 3,4,6,7,8,10,13,14,15,16,18,20,21,23,24,28,29,30,31,32,34,36,39,41, %T A283482 42,44,45,49,52,53,54,59,60,61,62,63,64,66,68,70,71,73,75,76,78,81,84, %U A283482 85,86,88,91,94,95,96,98,99,103,104,105,106,108,109,113,114,115,116,122,123,124,125,126,127,128,130,132,134,137,139,141,142,144 %N A283482 Positions of even terms in A004001. %H A283482 Antti Karttunen, <a href="/A283482/b283482.txt">Table of n, a(n) for n = 1..8264</a> %t A283482 a[n_] := a[n] = If[n <= 2, 1, a[a[n - 1]] + a[n - a[n - 1]]]; Select[Range@ 144, EvenQ@ a[#] &] (* _Michael De Vlieger_, Mar 18 2017, after _Robert G. Wilson v_ at A004001 *) %o A283482 (Scheme, with _Antti Karttunen_'s IntSeq-library) %o A283482 (define A283482 (ZERO-POS 1 1 A095901)) %Y A283482 Cf. A283481 (complement), A283471 (a subsequence). %Y A283482 Positions of zeros in A095901. %Y A283482 Cf. A004001. %K A283482 nonn %O A283482 1,1 %A A283482 _Antti Karttunen_, Mar 18 2017