1,2
Do[c=RealDigits[n*(n-1)][[1]]; If[c=Reverse[c], Print[n]], {n, 1, 10^8}]
Cf. A002378.
Sequence in context: A078983 A085874 A055739 this_sequence A135726 A042978 A089675
Adjacent sequences: A056791 A056792 A056793 this_sequence A056795 A056796 A056797
nonn,base
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 21 2000
Search completed in 0.002 seconds
