|
%I #6 May 24 2016 14:44:05
%S 1,2,6,24,120,720,5040,40320,362880,3991680,87816960,2897959680,
%T 127510225920,7013062425600,462862120089600,35640383246899200,
%U 3136353725727129600,310499018846985830400,31360400903545568870400
%N Product of first n palindromes.
%C 10 is not considered to be a palindrome. Might be called palindromials.
%H Harvey P. Dale, <a href="/A074166/b074166.txt">Table of n, a(n) for n = 1..295</a>
%e 31360400903545568870400 is a member as a product of 1,2,3,4...9,11,22,33,...99,101.
%t FoldList[Times,Select[Range[150],#==IntegerReverse[#]&]] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* _Harvey P. Dale_, May 24 2016 *)
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Aug 30 2002
|
