OFFSET
2,1
COMMENTS
The prime factors are counted with multiplicity, see A001222 and example.
EXAMPLE
63 = 3*3*7 has three factors, and 63+3+3+7 = 76 = 2*2*19 also has three factors. 63 is smallest such number, hence a(3) = 63.
PROG
(Magma) cpf:=func< n | &+[a[2]: a in Factorization(n)] >; z:=20; S:=[ 0: n in [1..z] ]; for k in [2..1300000] do c:=cpf(k); if S[c] eq 0 and cpf(k + &+[ a[1]*a[2]: a in Factorization(k) ]) eq c then S[c]:=k; end if; end for; j:=2; while S[j] gt 0 do printf "%d, ", S[j]; j+:=1; end while;
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot, Apr 06 2009
EXTENSIONS
Edited and a(6) - a(16) added by Klaus Brockhaus, Apr 08 2009
a(17) from Klaus Brockhaus, Apr 09 2009
Definition corrected by Donovan Johnson, May 09 2009
a(18)-a(24) from Donovan Johnson, May 08 2009
a(25)-a(27) from Daniel Suteu, Feb 05 2023
STATUS
approved