A358425 - OEIS

%I #10 Nov 19 2022 10:58:58

%S 25,29,31,193,250,323,361,401,402,445,490,537,587,640,696,701,756,761,

%T 818,823,883,888,952,957,1024,1029,1102,1107,1185,1190,1271,1276,1359,

%U 1364,1451,1456,1546,1551,1645,1650,1750,1755,1860,1865,1974,1979,2091,2096,2213,2218,2338

%N Numbers k such that A030717(k) = 7.

%H Michael De Vlieger, <a href="/A358425/b358425.txt">Table of n, a(n) for n = 1..4046</a>

%H Michael De Vlieger, <a href="/A358425/a358425.png">Plot a(s(j) + k - 1) at (j,k)</a> 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.

%t 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 *)

%Y Cf. A030723, A030724, A030725, A030726, A358423, A358424.

%Y Cf. A030717.

%K nonn

%O 1,1

%A _Seiichi Manyama_, Nov 15 2022