A071278 Sorted list of numbers b(i)*b(j), 2 < i < j, where b = A002113 = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33 ... is a list of the decimal palindromes.
6, 8, 10, 12, 12, 14, 15, 16, 18, 18, 20, 21, 22, 24, 24, 27, 28, 30, 32, 33, 35, 36, 40, 42, 44, 44, 45, 48, 54, 55, 56, 63, 66, 66, 66, 72, 77, 88, 88, 88, 99, 99, 110, 110, 132, 132, 132, 132, 154, 154, 165, 165, 176, 176, 176, 198, 198, 198, 198, 202, 220, 220, 222
Offset: 1
Examples
8 is in the sequence because 8=2*4.
Crossrefs
Cf. A002113.
Programs
-
Mathematica
Module[{nn=250,pals},pals=Select[Range[2,nn],PalindromeQ];Select[Sort[ Times@@#&/@ Subsets[pals,{2}]],#<=nn&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 27 2018 *)
Extensions
Corrected and extended by Sascha Kurz, Jan 02 2003
Edited (with corrected definition) by N. J. A. Sloane, May 27 2018
Comments