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

Offset

1,10

Links

Indranil Ghosh, Table of n, a(n) for n = 1..50000

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

Sequence in context: A369120 A080454 A226789 * A104865 A063555 A228010

Adjacent sequences: A110364 A110365 A110366 * A110368 A110369 A110370

Keyword

base,easy,nonn,look

Author

Amarnath Murthy, Jul 24 2005

Extensions

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

Corrected by Harvey P. Dale, Aug 14 2013

Status

approved