OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
f:= proc(n) local q;
q:= add(t[1]*t[2], t=ifactors(n)[2]);
10^(1+ilog10(q))*n+q
end proc:
f(1):= 10:
map(f, [$1..100]); # Robert Israel, Jun 26 2018
MATHEMATICA
pr[{a_, b_}]:=a*b; Join[{10}, Table[FromDigits[Flatten[IntegerDigits[Join[{n}, {Total[pr/@FactorInteger[n]]}]]]], {n, 2, 47}]] (* James C. McMahon, Apr 02 2024 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Jason Earls, Jul 06 2005
STATUS
approved