A126091 - OEIS

%I #2 Mar 31 2012 14:40:14

%S 1,4,2,7,3,8,6,11,7,12,10,15,11,16,14,19,15,20,18,23,19,24,22,27,23,

%T 28,26,31,27,32,30,35,31,36,34,39,35,40,38,43,39,44,42,47,43,48,46,51,

%U 47,52,50,55,51,56,54,59,55,60,58,63,59,64,62,67,63,68,66,71,67,72,70,75

%N a(1)=1;a(2)=4; for n>2, a(n)=a(n-2)+3 if n is already in the sequence, a(n)=a(n-2)+1 otherwise.

%t a={1,4};Do[If[MemberQ[a,n],b=a[[n-2]]+3,b=a[[n-2]]+1];AppendTo[a,b],{n,3,70}];a

%Y Cf. A080578, A080455-A080458.

%K nonn

%O 1,2

%A _Zak Seidov_, Mar 11 2007