OFFSET
1,2
COMMENTS
LINKS
Derek Orr, Table of n, a(n) for n = 1..1000
EXAMPLE
1089 = 3^2*11^2, 9801 = 3^4*11^2.
MATHEMATICA
Select[ Range[ 500], First /@ FactorInteger[ # ] == First /@ FactorInteger[ FromDigits[ Reverse[ IntegerDigits[ # ]]]] &] (* Robert G. Wilson v *)
PROG
(PARI) is_A110751(n)={ local(r=eval(concat(vecextract(Vec(Str(n)), "-1..1")))); r==n || factor(r)[, 1]==factor(n)[, 1] } /* M. F. Hasler */
(Python)
from sympy import primefactors
A110751 = [n for n in range(1, 10**5) if primefactors(n) == primefactors(int(str(n)[::-1]))] # Chai Wah Wu, Aug 14 2014
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Aug 11 2005
EXTENSIONS
Edited and extended by Robert G. Wilson v, Sep 21 2005
Corrected comment, added PARI code. - M. F. Hasler, Nov 16 2008
STATUS
approved