# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a358423 Showing 1-1 of 1 %I A358423 #21 Nov 19 2022 10:58:47 %S A358423 16,18,68,76,80,89,90,93,105,109,123,143,168,286,322,366,405,448,493, %T A358423 494,540,541,543,591,593,646,702,770,826,832,891,893,897,960,962,966, %U A358423 1032,1034,1039,1110,1112,1117,1193,1195,1200,1279,1281,1286,1367,1369,1374,1459,1461,1466,1554,1556 %N A358423 Numbers k such that A030717(k) = 5. %H A358423 Michael De Vlieger, Table of n, a(n) for n = 1..8044 (first 1000 term by Seiichi Manyama) %H A358423 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 %t A358423 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 *) %Y A358423 Cf. A030723, A030724, A030725, A030726, A358424, A358425. %Y A358423 Cf. A030717. %K A358423 nonn %O A358423 1,1 %A A358423 _Seiichi Manyama_, Nov 15 2022 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE