OFFSET
1,1
COMMENTS
There are 159 such numbers up to 1 million. -Harvey P. Dale, May 24 2012
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..150 from Harvey P. Dale)
EXAMPLE
1805 is a term because A001414(1805) = 5+19+19 = 43 and 1806 = 2*3*7*43.
MATHEMATICA
Select[Range[65000], Total[Times@@@FactorInteger[#]]==FactorInteger[#+1][[-1, 1]]&] (* Harvey P. Dale, May 24 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jun 09 2002
STATUS
approved