OFFSET
2,1
COMMENTS
The smallest number for which the sum of the digits of its prime factors equals n multiplied by the sum of its digits.
LINKS
Shyam Sunder Gupta, Smith numbers
MAPLE
A007953 := proc(n) add(d, d=convert(n, base, 10)) ; end proc:
A118503 := proc(n) a := 0 ; for p in ifactors(n)[2] do a := a+ op(2, p)*A007953(op(1, p)) ; end do: a ; end proc:
A195191 := proc(n) for k from 1 do if A118503(k) = n*A007953(k) then return k; end if; end do: end proc: # R. J. Mathar, Sep 14 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Kausthub Gudipati, Sep 11 2011
EXTENSIONS
a(12)-a(29) from Donovan Johnson, Sep 15 2011
STATUS
approved