A358425 Numbers k such that A030717(k) = 7.

25, 29, 31, 193, 250, 323, 361, 401, 402, 445, 490, 537, 587, 640, 696, 701, 756, 761, 818, 823, 883, 888, 952, 957, 1024, 1029, 1102, 1107, 1185, 1190, 1271, 1276, 1359, 1364, 1451, 1456, 1546, 1551, 1645, 1650, 1750, 1755, 1860, 1865, 1974, 1979, 2091, 2096, 2213, 2218, 2338

Offset: 1

Author

Seiichi Manyama, Nov 15 2022

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..4046
• 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) = 7 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, A358423, A358424.

Cf. A030717.

Programs

Mathematica

nn = 50; m = 7; c[] = 0; k = a[1] = c[1] = 1; Reap[Do[w = Union@ Array[a, k]; Do[Set[a[j + k], c[w[[j]]]]; If[a[j + k] == m, Sow[m]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w], {n, nn}] ][[-1, -1]] (* _Michael De Vlieger, Nov 19 2022 *)