A030725 Numbers k such that A030717(k) = 3.

6, 8, 9, 12, 13, 15, 19, 32, 39, 41, 42, 46, 48, 49, 50, 54, 56, 57, 66, 67, 77, 78, 79, 91, 92, 107, 108, 125, 126, 146, 149, 169, 172, 173, 182, 194, 197, 198, 207, 225, 226, 236, 256, 257, 267, 289, 292, 300, 325, 327, 336, 362

Offset

1,1

Links

Seiichi Manyama, Table of n, a(n) for n = 1..1000

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) = 3 in red, a(m) = 1 in medium blue for reference, and other values of a(m) in light blue.

Mathematica

nn = 30; m = 3; 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 *)

Crossrefs

Cf. A030723, A030724, A030726.

Cf. A030717.

Sequence in context: A045574 A074284 A125736 * A195101 A337381 A305704

Adjacent sequences: A030722 A030723 A030724 * A030726 A030727 A030728

Keyword

nonn

Author

Clark Kimberling

Status

approved