OFFSET
1,3
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
11711 is in the sequence because (1) it is a palindrome, (2)the sum of its digits 1+1+7+1+1=11 is a palindrome and (3)the product of its digits 1*1*7*1*1=7 is also a palindrome.
MATHEMATICA
id[n_]:=IntegerDigits[n]; palQ[n_]:=Reverse[x=id[n]]==x; t={}; Do[If[palQ[n] && palQ[Plus@@id[n]] && palQ[Times@@id[n]], AppendTo[t, n]], {n, 0, 11220}]; t (* Jayanta Basu, May 15 2013 *)
Select[Range[0, 12000], AllTrue[{#, Total[IntegerDigits[#]], Times@@IntegerDigits[#]}, PalindromeQ]&] (* Harvey P. Dale, Jul 05 2022 *)
PROG
(PARI) ispal(n)=n=digits(n); for(i=1, #n\2, if(n[i]!=n[#n+1-i], return(0))); 1
is(n)=my(d=vecsort(digits(n))); ispal(sum(i=1, #d, d[i]))&&ispal(prod(i=1, #d, d[i]))&&ispal(n) \\ Charles R Greathouse IV, May 15 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 16 2006
STATUS
approved