A254009 Numbers that divide the sum of the reverse of their aliquot parts (A069250).

1, 6, 244, 285, 944, 1242, 3738, 22644, 37686, 58950, 85512, 124944, 130410, 133857, 235644, 3202101, 5367582, 5663697, 45165231, 141635817, 214939686, 736140702, 2395863144, 4992033177, 28406362140, 30364415451

Offset: 1

Author

Paolo P. Lava, Jan 22 2015

Keywords

• nonn
• base

Comments

A072228 is a subsequence. - Paolo P. Lava, Nov 09 2018

Examples

			Aliquot parts of 944 are 1, 2, 4, 8, 16, 59, 118, 236, 472 and the sum of their reverse is 1 + 2 + 4 + 8 +61 + 95 + 811 + 632 + 274 = 1888. Finally, 1888 / 944 = 2.
		

Crossrefs

Cf. A069250, A072228, A007691, A254008.

Programs

Maple

with(numtheory):
T:=proc(w) local x,y,z; x:=w; y:=0;
for z from 1 to ilog10(x)+1 do y:=10*y+(x mod 10); x:=trunc(x/10); od; y; end:
P:=proc(q) local a,b,k; global n;
for n from 1 to q do a:=sort([op(divisors(n))]); b:=add(T(a[k]),k=1..nops(a)-1);
if type(b/n,integer) then print(n); fi; od; end: P(10^9);

PARI

isok(n) = (sumdiv(n, d, (d != n)* eval(concat(Vecrev(Str(d))))) % n) == 0; \\ Michel Marcus, Feb 27 2015

Extensions

a(16)-a(26) from Lars Blomberg, Feb 27 2015