

A110367


n divided by sum of digits of n if that is an integer, else n multiplied by the same.


1



1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 22, 4, 52, 70, 90, 112, 136, 2, 190, 10, 7, 88, 115, 4, 175, 208, 3, 280, 319, 10, 124, 160, 198, 238, 280, 4, 370, 418, 468, 10, 205, 7, 301, 352, 5, 460, 517, 4, 637, 10, 306, 364, 424, 6, 550, 616, 684, 754, 826, 10, 427, 496, 7, 640, 715
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,10


LINKS



EXAMPLE

a(12) = 12/3 = 4. a(22) = 22*4 = 88.


MATHEMATICA

sd[n_]:=Module[{s=Total[IntegerDigits[n]]}, If[Divisible[n, s], n/s, n*s]]; Array[sd, 100] (* Harvey P. Dale, Aug 14 2013 *)


CROSSREFS



KEYWORD



AUTHOR



EXTENSIONS

More terms from Anthony J. Paglione (ajp267(AT)psu.edu), Sep 13 2005


STATUS

approved



