|
|
A101701
|
|
Numbers n such that n = sum of the reversals of divisors of n.
|
|
1
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
18368601 is in the sequence because divisors of 18368601 are 1, 3, 6122867, 18368601 and 18368601 = 1 + 3 + 7682216 + 10686381.
|
|
MATHEMATICA
|
Do[h = Divisors[n]; l = Length[h]; If[n == Sum[ FromDigits[Reverse[IntegerDigits[h[[k]]]]], {k, l}], Print[n]], {n, 370000000}]
|
|
PROG
|
(Python)
from sympy import divisors
A101701_list = [n for n in range(1, 10**6) if n == sum([int(d) for d in (str(x)[::-1] for x in divisors(n))])]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|