OFFSET
1,1
COMMENTS
Does any term in this sequence have any digit greater than 2? [From Harvey P. Dale, Nov 05 2011]
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
E.g. 10021 x 12001 = 120262021 is a palindrome.
MATHEMATICA
palQ[n_]:=Module[{idn=IntegerDigits[n], ridn, idn2}, ridn=Reverse[idn]; idn2 = IntegerDigits[ n FromDigits[ridn]]; idn!=ridn&&idn2==Reverse[idn2]]; Select[ Range[11100], palQ] (* Harvey P. Dale, Nov 05 2011 *)
Select[Range[12000], !PalindromeQ[#]&&PalindromeQ[# IntegerReverse[#]]&] (* Harvey P. Dale, Jul 10 2023 *)
PROG
(Haskell)
a048344 n = a048344_list !! (n-1)
a048344_list = filter f a029742_list where
f x = a136522 (x * a004086 x) == 1
-- Reinhard Zumkeller, Oct 09 2011
(Python)
A048344_list = []
for n in range(1, 10**5):
....s = str(n)
....s2 = str(n)[::-1]
....if s != s2:
........s3 = str(n*int(s2))
........if s3 == s3[::-1]:
............A048344_list.append(n) # Chai Wah Wu, Sep 08 2014
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
Patrick De Geest, Feb 15 1999
EXTENSIONS
Offset corrected by Reinhard Zumkeller, Oct 09 2011
STATUS
approved