OFFSET
1,1
COMMENTS
Witno (2014) proved that this sequence is infinite.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..512
Amin Witno, Smith Numbers With Extra Digital Features, Integers, Vol. 14 (2014), Article A66.
EXAMPLE
666 is a term since it is palindromic, a Niven number (6 + 6 + 6 = 18 is a divisor of 666) and a Smith number (666 = 2 * 3 * 3 * 37 and 6 + 6 + 6 = 2 + 3 + 3 + 3 + 7).
MATHEMATICA
digSum[n_] := Plus @@ IntegerDigits[n]; palNivenSmithQ[n_] := PalindromeQ[n] && Divisible[n, (ds = digSum[n])] && CompositeQ[n] && Plus @@ (Last@# * digSum[First@#] & /@ FactorInteger[n]) == ds; Select[Range[10^5], palNivenSmithQ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, May 05 2020
STATUS
approved