OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
EXAMPLE
a(1) = 378 because 378 is a Smith number as well as a triangular number.
MATHEMATICA
Rest[Select[Accumulate[Range[1500]], !PrimeQ[#]&&Total[IntegerDigits[#]] == Total[Flatten[ IntegerDigits/@Flatten[Table[#[[1]], {#[[2]]}]&/@ FactorInteger[ #]]]]&]] (* Harvey P. Dale, Oct 20 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Oct 10 2004
STATUS
approved