OFFSET
1,2
EXAMPLE
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.
MATHEMATICA
Select[Range@100000, (p=#+{1, -1}*Times@@IntegerDigits@#; Differences@p!={0}&&AllTrue[p, PalindromeQ])&] (* Hans Rudolf Widmer, Sep 03 2023 *)
PROG
(PARI) rev(n)={r=""; for(i=1, #digits(n), r=concat(Str(digits(n)[i]), r)); return(eval(r))}
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, ", "))))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Derek Orr, Jun 29 2014
STATUS
approved