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