# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a045412
Showing 1-1 of 1
%I A045412 #37 May 06 2021 09:44:03
%S A045412 3,6,7,10,13,14,15,18,21,22,25,28,29,30,31,34,37,38,41,44,45,46,49,52,
%T A045412 53,56,59,60,61,62,63,66,69,70,73,76,77,78,81,84,85,88,91,92,93,94,97,
%U A045412 100,101,104,107,108,109,112,115,116,119,122,123,124,125,126
%N A045412 a(1)=3; for n > 1, a(n) = a(n-1) + 1 if n is already in the sequence, a(n) = a(n-1) + 3 otherwise.
%C A045412 It appears these are the indices of the terms in A182105 which are greater than 1. - _Carl Joshua Quines_, Apr 07 2017
%H A045412 Indranil Ghosh, Table of n, a(n) for n = 1..10000
%H A045412 B. Cloitre, N. J. A. Sloane and M. J. Vandermast, Numerical analogues of Aronson's sequence, J. Integer Seqs., Vol. 6 (2003), #03.2.2.
%H A045412 B. Cloitre, N. J. A. Sloane and M. J. Vandermast, Numerical analogues of Aronson's sequence, arXiv:math/0305308 [math.NT], 2003.
%H A045412 Geoffrey Powell, Symmetric powers, indecomposables and representation stability, arXiv:1809.08781 [math.AT], 2018.
%H A045412 F. Ruskey and C. Deugau, The Combinatorics of Certain k-ary Meta-Fibonacci Sequences, JIS 12 (2009) 09.4.3.
%t A045412 l={3}; a=3; For[n=2, n<=100, If[MemberQ[l, n], a=a+1, a=a+3]; AppendTo[l, a]; n++]; l (* _Indranil Ghosh_, Apr 07 2017 *)
%o A045412 (Python)
%o A045412 l=[3]
%o A045412 a=3
%o A045412 for n in range(2, 101):
%o A045412 if n not in l: a+=3
%o A045412 else: a+=1
%o A045412 l.append(a)
%o A045412 print(l) # _Indranil Ghosh_, Apr 07 2017
%Y A045412 Cf. A080578.
%K A045412 nonn
%O A045412 1,1
%A A045412 _N. J. A. Sloane_ and _Benoit Cloitre_, Apr 01 2003
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE