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,2

Comments

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

Links

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

Example

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.

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);

Prog

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

Crossrefs

Cf. A069250, A072228, A007691, A254008.

Sequence in context: A233826 A156936 A231019 * A072228 A322559 A229631

Adjacent sequences: A254006 A254007 A254008 * A254010 A254011 A254012

Keyword

nonn,base

Author

Paolo P. Lava, Jan 22 2015

Extensions

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

Status

approved