editing
approved
editing
approved
f[n_] := LCM[n, Plus @@ IntegerDigits[n]]; Table[ f[n], {n, 63}] (from * _Robert G. Wilson v _, Nov 20 2004 *)
approved
editing
a(n)=n for Niven (or Harshad) numbers (A005349). - _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Nov 20 2004
More terms from _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Nov 20 2004
Least common multiple of n and its digit sum.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 22, 12, 52, 70, 30, 112, 136, 18, 190, 20, 21, 44, 115, 24, 175, 104, 27, 140, 319, 30, 124, 160, 66, 238, 280, 36, 370, 418, 156, 40, 205, 42, 301, 88, 45, 230, 517, 48, 637, 50, 102, 364, 424, 54, 110, 616, 228, 754, 826, 60, 427, 248, 63
1,2
a(n)=n for Niven (or Harshad) numbers (A005349). - Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 20 2004
f[n_] := LCM[n, Plus @@ IntegerDigits[n]]; Table[ f[n], {n, 63}] (from Robert G. Wilson v Nov 20 2004)
base,easy,nonn
Gaetan Polard (gaetan27(AT)hotmail.com), Nov 18 2004
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 20 2004
approved