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
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 (list; graph; refs; listen; history; text; internal format)
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

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 June 30 03:34 EDT 2022. Contains 354913 sequences. (Running on oeis4.)