A376453 - OEIS

%I #4 Sep 30 2024 12:40:26

%S 1,3,5,7,10,13,15,17,19,21,23,26,28,31,33,35,37,39,41,43,45,47,50,52,

%T 54,57,59,61,63,65,67,69,71,73,75,77,79,82,84,86,88,91,93,95,97,101,

%U 103,105,107,111,113,115,117,120,122,124,126,128,131,133,135

%N Positions of numbers in A376450 that end in 1.

%C This sequence and A376452 partition the positive integers.

%F {a(n+1)-a(n) : n>=1} = {2,3,4,5} (conjectured).

%t greedy[list_, n_] := Reap[FoldList[(Sow[Quotient[#1, #2]]; Mod[#1, #2]) &, n, Reverse[list]]][[2, 1]];

%t seq = Table[Floor[((n + 1)^2)/4], {n, 30}]; (* A002620 *)

%t t1 = Table[FromDigits[greedy[seq, n]], {n, Last[seq]}];

%t d = Map[Last, Map[First, RealDigits[t1, 10]]] (* A376450 *)

%t p0 = Flatten[Position[d, 0]] (* A376452 *)

%t p1 = Flatten[Position[d, 1]] (* this sequence *)

%t (* _Peter J. C. Moses_, Oct 18 2012; from A214973 *)

%Y Cf. A002620, A376450, A376451, A376452.

%K nonn,base

%O 1,2

%A _Clark Kimberling_, Sep 28 2024