A101701 Numbers n such that n = sum of the reversals of divisors of n.

1, 207321, 890827, 7591023, 18368601, 4885292403

Offset

1,2

Comments

a(7) > 10^11. - Donovan Johnson, Dec 27 2013

Links

Table of n, a(n) for n=1..6.

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))])]
# Chai Wah Wu, Dec 06 2014

Crossrefs

Cf. A069942, A072228.

Sequence in context: A115946 A082176 A178285 * A092011 A362758 A216900

Adjacent sequences: A101698 A101699 A101700 * A101702 A101703 A101704

Keyword

base,more,nonn

Author

Farideh Firoozbakht, Dec 23 2004

Extensions

a(6) from Donovan Johnson, Dec 07 2008

Status

approved