OFFSET
1,1
COMMENTS
Numbers k such that A050328(k) > k.
If k is a term then all the smaller numbers with the same prime signature (A118914) as k are also terms.
The least term that is not divisible by 5 is a(112) = 399168.
The least term that is not divisible by 3 is 144848704000.
The least odd term is A147516(43302) = 16639855392913235373515625.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[1] = 1; f[n_] := f[n] = DivisorSum[n, f[#] &, # < n && SquareFreeQ[n/#] &]; Select[Range[110000], f[#] > # &]
PROG
(PARI) f(n) = if(n == 1, 1, sumdiv(n, d, if((d<n && issquarefree(n/d)), f(d))));
isok(k) = f(k) > k;
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 01 2025
STATUS
approved
