login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A254009 Numbers that divide the sum of the reverse of their aliquot parts (A069250). 1

%I

%S 1,6,244,285,944,1242,3738,22644,37686,58950,85512,124944,130410,

%T 133857,235644,3202101,5367582,5663697,45165231,141635817,214939686,

%U 736140702,2395863144,4992033177,28406362140,30364415451

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

%C A072228 is a subsequence. - _Paolo P. Lava_, Nov 09 2018

%e 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.

%p with(numtheory):

%p T:=proc(w) local x,y,z; x:=w; y:=0;

%p for z from 1 to ilog10(x)+1 do y:=10*y+(x mod 10); x:=trunc(x/10); od; y; end:

%p P:=proc(q) local a,b,k; global n;

%p for n from 1 to q do a:=sort([op(divisors(n))]); b:=add(T(a[k]),k=1..nops(a)-1);

%p if type(b/n,integer) then print(n); fi; od; end: P(10^9);

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

%Y Cf. A069250, A072228, A007691, A254008.

%K nonn,base

%O 1,2

%A _Paolo P. Lava_, Jan 22 2015

%E a(16)-a(26) from _Lars Blomberg_, Feb 27 2015

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 8 14:59 EDT 2022. Contains 356009 sequences. (Running on oeis4.)