|
|
A164322
|
|
Numbers n such that n=prime(P)+sigma(P), where P is product of digits of n.
|
|
2
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The product of the digits of next term (if it exists) is greater than 2*10^8.
|
|
LINKS
|
|
|
EXAMPLE
|
25688777=prime(2*5*6*8*8*7*7*7)+sigma(2*5*6*8*8*7*7*7), so 25688777 is in the
sequence.
|
|
MATHEMATICA
|
Do[If[n=Prime[m]+DivisorSigma[1, m]; m==Apply[Times, IntegerDigits[n]], Print[n]],
{m, 200000000}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,more,nonn,bref
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|