OFFSET
1,2
COMMENTS
The unary sequence A000042 is a trivial subsequence.
Conjecture: There are infinitely many terms in the sequence (of the type 777) for which the product of digits > 10.
Subset of A117055, containing terms for which product of digits is greater than 0. - Jayanta Basu, May 15 2013
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..89 (all terms up to 10 million)
EXAMPLE
777 is a term as 7^3 = 343 is a palindrome.
MATHEMATICA
id[n_]:=IntegerDigits[n]; palQ[n_]:=Reverse[x=id[n]]==x; t={}; Do[If[palQ[n] && (y=Times@@id[n]) > 0 && palQ[y], AppendTo[t, n]], {n, 21220}]; t (* Jayanta Basu, May 15 2013 *)
Select[Range[22000], FreeQ[IntegerDigits[#], 0]&&AllTrue[{#, Times @@ IntegerDigits[ #]}, PalindromeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 22 2019 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Apr 10 2003
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 19 2003
STATUS
approved