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 A244547 #15 Sep 29 2023 18:47:43
%S A244547 1,2,3,4,247,252,348,843,15451,25152,25252,25352,25452,36563,36968,
%T A244547 44594,51165,51415,52125,52225,52325,52425,63536,92529,1455541,
%U A244547 1545451,1595451,1954591,2255522,2524752,2525252,2534852,2584352,2853582,2856582,3159563,3354533,3524753,3534353
%N A244547 Numbers k with nonzero digits such that k +/- the product of digits of k are both palindromes.
%e A244547 247 has all digits > 0. 247 - 2*4*7 = 191 is a palindrome, and 247 + 2*4*7 = 303 is a palindrome. Thus 247 is a member of this sequence.
%t A244547 Select[Range@100000,(p=#+{1,-1}*Times@@IntegerDigits@#; Differences@p!={0}&&AllTrue[p,PalindromeQ])&] (* _Hans Rudolf Widmer_, Sep 03 2023 *)
%o A244547 (PARI) rev(n)={r="";for(i=1,#digits(n),r=concat(Str(digits(n)[i]),r));return(eval(r))}
%o A244547 for(n=1,10^7,dig=digits(n);p=prod(k=1,#dig,dig[k]);if(p!=0,mi=n-p;ma=n+p;if(rev(mi)==mi&&rev(ma)==ma,print1(n,", "))))
%Y A244547 Cf. A244541, A007954.
%Y A244547 Cf. A002113, A052382.
%K A244547 nonn,base
%O A244547 1,2
%A A244547 _Derek Orr_, Jun 29 2014