A358423 Numbers k such that A030717(k) = 5.

16, 18, 68, 76, 80, 89, 90, 93, 105, 109, 123, 143, 168, 286, 322, 366, 405, 448, 493, 494, 540, 541, 543, 591, 593, 646, 702, 770, 826, 832, 891, 893, 897, 960, 962, 966, 1032, 1034, 1039, 1110, 1112, 1117, 1193, 1195, 1200, 1279, 1281, 1286, 1367, 1369, 1374, 1459, 1461, 1466, 1554, 1556

Offset: 1

Author

Seiichi Manyama, Nov 15 2022

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..8044 (first 1000 term by Seiichi Manyama)
• Michael De Vlieger, Plot a(s(j) + k - 1) at (j,k) for j = 1..512 and s = partial sums of A030719, showing a(m) = 5 in red, a(m) = 1 in medium blue for reference, and other values of a(m) in light blue

Crossrefs

Cf. A030723, A030724, A030725, A030726, A358424, A358425.

Cf. A030717.

Programs

Mathematica

t = {{1}}; Do[AppendTo[t, BinCounts[#, {1, Max[#] + 1}] &[Flatten[t]]], {44}]; Position[DeleteCases[Flatten[t], 0], 5][[All, 1]] (* Michael De Vlieger, Nov 15 2022, after Peter J. C. Moses at A030717 *)