OFFSET
1,1
COMMENTS
Also numbers which are less than the number of their perfect factorizations or gozinta chains.
The least odd term of this sequence is 51288546684375. - Amiram Eldar, Apr 11 2020
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..100 from Paolo P. Lava)
EXAMPLE
The ordered partitions of 72 are 76, of 96 are 112, of 120 are 132, etc.
MAPLE
P:=proc(q) local a, j, k, m; a:= array(1..q); for k from 1 to q do a[k]:=0 od; a[1]:=1;
for j from 2 to q do for m from 1 to j-1 do if j mod m=0 then a[j]:= a[j]+a[m]; fi; od;
if j<a[j] then print(j); fi; od; end: P(10^5);
MATHEMATICA
f[1] = 1; f[n_] := DivisorSum[n, f[#] &, # < n &]; Select[Range[2400], f[#] > # &] (* Amiram Eldar, Apr 11 2020 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo P. Lava, Mar 15 2016
STATUS
approved