A098840 - OEIS

%I #10 Aug 23 2020 02:10:08

%S 378,666,861,2556,5253,7503,10296,16653,27261,28920,29890,32896,46056,

%T 72771,84255,85905,92235,94395,120786,132870,141778,157641,215496,

%U 328455,345696,385881,386760,396495,424581,529935,533028,588070,654940

%N Smith triangular numbers.

%H Amiram Eldar, <a href="/A098840/b098840.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)

%e a(1) = 378 because 378 is a Smith number as well as a triangular number.

%t Rest[Select[Accumulate[Range[1500]],!PrimeQ[#]&&Total[IntegerDigits[#]] == Total[Flatten[ IntegerDigits/@Flatten[Table[#[[1]],{#[[2]]}]&/@ FactorInteger[ #]]]]&]] (* _Harvey P. Dale_, Oct 20 2012 *)

%Y Intersection of A000217 and A006753.

%K base,nonn

%O 1,1

%A _Shyam Sunder Gupta_, Oct 10 2004