login
A345763
a(n) is the smallest k such that A345699(k) = n.
1
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,2
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}]
CROSSREFS
Cf. A345699.
Sequence in context: A039943 A193996 A232400 * A354712 A067671 A227815
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(23) corrected by and more terms from Jinyuan Wang, Jul 02 2021
STATUS
approved