OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
133 is in the sequence because 1 + 3 + 3 = 7 and 7 is the smallest prime factor of 133.
MAPLE
A007953 := proc(n) local d; add(d, d=convert(n, base, 10)) ; end:
A020639 := proc(n) min(op(numtheory[factorset](n) )) ; end:
for n from 1 to 6000 do if isA162948(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jul 19 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jul 18 2009
EXTENSIONS
Single-digit primes added by R. J. Mathar, Jul 19 2009
STATUS
approved