A376452 Positions of numbers in A376450 that end in 0.

0, 2, 4, 6, 8, 9, 11, 12, 14, 16, 18, 20, 22, 24, 25, 27, 29, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 49, 51, 53, 55, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 81, 83, 85, 87, 89, 90, 92, 94, 96, 98, 99, 100, 102, 104, 106, 108, 109, 110, 112, 114

Offset

1,2

Comments

This sequence and A376453 partition the positive integers.

Conjecture: if (b(n)) denotes the complement of this sequence, then {b(n+1)-b(n) : n>=1} = {2,3,4,5}.

Links

Table of n, a(n) for n=1..64.

Formula

{a(n+1) - a(n) : n >= 1} = {1,2}.

Mathematica

greedy[list_, n_] := Reap[FoldList[(Sow[Quotient[#1, #2]]; Mod[#1, #2]) &, n, Reverse[list]]][[2, 1]];
seq = Table[Floor[((n + 1)^2)/4], {n, 30}]; (* A002620 *)
t1 = Table[FromDigits[greedy[seq, n]], {n, Last[seq]}];
d = Map[Last, Map[First, RealDigits[t1, 10]]] (* A376450 *)
p0 = Flatten[Position[d, 0]] (* this sequence *)
p1 = Flatten[Position[d, 1]] (* A376453 *)
(* Peter J. C. Moses, Oct 18 2012; from A214973 *)

Crossrefs

Cf. A002620, A376450, A376451, A376453.

Sequence in context: A186149 A298861 A114571 * A050091 A184740 A184638

Adjacent sequences: A376449 A376450 A376451 * A376453 A376454 A376455

Keyword

nonn,base

Author

Clark Kimberling, Sep 28 2024

Status

approved