A025513 Exactly half of first a(n) terms of A022300 are 1's (not known to be infinite).
5904, 5986, 6050, 6068, 6074, 6076, 6078, 6080, 6084, 6086, 6092, 6094, 6096, 6098, 6100, 6102, 6104, 6106, 6108, 6114, 6116, 6118, 6120, 6124, 6126, 6136, 6138, 6142, 6144, 6146, 6148, 6154, 6156, 6158, 6160, 6162, 6164, 6166, 6168, 6170, 6174, 6176
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
N:= 10000: # to use A022300(1..N) B:= Vector(N): B[1..4]:= <1,1,2,1>: m:= 4: t:= 2: for n from 1 while m < N do t:= 3-t; B[m]:= t; if B[n] = 2 and m+1 < N then B[m+1]:= t; m:= m+2 else m:= m+1 fi od: S:= ListTools:-PartialSums(convert(B,list)): select(t -> S[t] = 3/2*t, [$1..nops(S)]); # Robert Israel, Nov 02 2016
Comments