This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A082207 #23 Jul 23 2023 01:50:22
%S A082207 1,2,3,4,5,6,7,8,9,11,22,33,111,121,131,141,151,161,171,181,191,212,
%T A082207 222,313,676,777,1111,1221,1331,2112,3113,11111,11211,11311,11411,
%U A082207 11511,11611,11711,11811,11911,12121,12221,13131,16761,17771,21112,21212
%N A082207 Palindromes whose product of digits is a positive palindrome.
%C A082207 The unary sequence A000042 is a trivial subsequence.
%C A082207 Conjecture: There are infinitely many terms in the sequence (of the type 777) for which the product of digits > 10.
%C A082207 Subset of A117055, containing terms for which product of digits is greater than 0. - _Jayanta Basu_, May 15 2013
%H A082207 Harvey P. Dale, <a href="/A082207/b082207.txt">Table of n, a(n) for n = 1..89</a> (all terms up to 10 million)
%e A082207 777 is a term as 7^3 = 343 is a palindrome.
%t A082207 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 *)
%t A082207 Select[Range[22000],FreeQ[IntegerDigits[#],0]&&AllTrue[{#,Times @@ IntegerDigits[ #]},PalindromeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 22 2019 *)
%Y A082207 Cf. A082208.
%K A082207 base,easy,nonn
%O A082207 1,2
%A A082207 _Amarnath Murthy_, Apr 10 2003
%E A082207 More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 19 2003