OFFSET
1,2
MATHEMATICA
Do[c=RealDigits[n*(n-1)][[1]]; If[c=Reverse[c], Print[n]], {n, 1, 10^8}]
PROG
(PARI) is(n)=my(d=digits(n^2-n)); d==Vecrev(d) \\ Charles R Greathouse IV, Mar 16 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Aug 21 2000
EXTENSIONS
More terms from Sean A. Irvine, May 09 2022
STATUS
approved
