A345763 a(n) is the smallest k such that A345699(k) = n.

1, 4, 16, 20, 1369, 68, 10201, 148, 272, 5476, 29997529, 340, 351649, 40804, 21904, 596, 674041, 1360, 1852321, 21908, 163216, 119990116, 2649731918665280089, 2020, 2301289, 1406596, 6416, 204020, 166497457681, 87632, 38862996769, 2980, 34351321, 2696164, 13965169

Offset: 1

Author

José María Grau Ribas, Jun 26 2021

Keywords

• nonn

Crossrefs

Cf. A345699.

Programs

Mathematica

A345699[1] = 1; A345699[p_, 1] := A345699[p - 1];
A345699[p_, s_] := A345699[p, s] = A345699[p] + A345699[s];
A345699[n_] :=  A345699[n] = Module[{aux = FactorInteger[n]},
    Product[A345699[aux[[i, 1]], aux[[i, 2]]], {i, Length[aux]}]];
a[n_]=0;
Table[If[a[A345699[n]] == 0, a[ A345699[n]]= n], {n, 1, 10^8}]
Table[a[n],{n,1,10}]

Extensions

a(23) corrected by and more terms from Jinyuan Wang, Jul 02 2021