login
A349428
Smallest k such that A349410(k) = n or -1 if no such number exists.
0
1, 4, 15, 30, 42, 360, 196, 525, 2080, 320, 7168, 123200, 35200, 150920, 196000, 1232000, 61236, 466560, 106831872, 49787136, 14580000, 155648000, 94058496, 123561984, 47385000
OFFSET
1,2
MATHEMATICA
f[n_] := Module[{s = NestWhileList[n * DivisorSigma[0, #] &, 1, UnsameQ, All]}, Differences[Position[s, s[[-1]]]][[1, 1]]]; seq[len_, nmax_] := Module[{v = Table[0, {len}], n = 1, c = 0, i}, While[c < len && n < nmax, i = f[n]; If[i <= len && v[[i]] == 0, c++; v[[i]] = n]; n++]; TakeWhile[v, # > 0 &]]; seq[15, 10^6] (* Amiram Eldar, Nov 17 2021 *)
CROSSREFS
Cf. A349410.
Similar sequences: A005179, A348184.
Sequence in context: A154493 A337519 A031012 * A188075 A322740 A366659
KEYWORD
nonn,more
AUTHOR
Tejo Vrush, Nov 17 2021
EXTENSIONS
Escape clause value changed to -1. - N. J. A. Sloane, Jan 14 2022
STATUS
approved