A358424 Numbers k such that A030717(k) = 6.

20, 23, 30, 127, 147, 166, 170, 191, 195, 219, 223, 254, 287, 360, 407, 450, 495, 542, 590, 592, 643, 644, 645, 699, 700, 759, 760, 762, 821, 822, 824, 886, 887, 889, 955, 956, 958, 1027, 1028, 1030, 1105, 1106, 1108, 1188, 1189, 1191, 1274, 1275, 1277, 1362, 1363, 1365, 1454, 1455

Offset: 1

Author

Seiichi Manyama, Nov 15 2022

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..6070
• 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) = 6 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, A358425.

Cf. A030717.

Programs

Mathematica

nn = 40; m = 6; 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 *)