OFFSET
1,3
LINKS
MATHEMATICA
palOblongPlus6Q[n_] := Module[{d = IntegerDigits[n^2 + n + 6]}, d == Reverse[d]]; Select[Range[0, 3000000], palOblongPlus6Q] (* Harvey P. Dale, Nov 14 2012 *)
PROG
(Magma) [n: n in [0..3*10^6] | Intseq(n^2+n+6) eq Reverse(Intseq(n^2+n+6))]; // Vincenzo Librandi, Jun 16 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(23)-a(33) from Giovanni Resta, Aug 27 2018
STATUS
approved