cp's OEIS Frontend

A082941 a(n) is the odd-length palindrome whose digits up to the center are those of n and whose center digit is equal to the digital root of the product of the factorial of n and the reverse of n.

%I A082941 #25 Feb 12 2022 13:45:56
%S A082941 111,242,393,494,595,696,797,898,999,10901,11911,12921,13931,14941,
%T A082941 15951,16961,17971,18981,19991,20902,21912,22922,23932,24942,25952,
%U A082941 26962,27972,28982,29992,30903,31913,32923,33933,34943,35953,36963,37973,38983,39993,40904,41914,42924,43934,44944
%N A082941 a(n) is the odd-length palindrome whose digits up to the center are those of n and whose center digit is equal to the digital root of the product of the factorial of n and the reverse of n.
%C A082941 Center digit is 9 from the third term onwards.
%H A082941 J.W.L. (Jan) Eerland, <a href="/A082941/b082941.txt">Table of n, a(n) for n = 1..4999</a>
%e A082941 a(9) = 9!*9! = 362880*362880 = 131681894400. 1+3+1+6+8+1+8+9+4+4+0+0 = 45. 4+5 = 9.
%e A082941 a(6) = 6!*6! = 518400. 5+1+8+4+0+0 = 18. 1+8 = 9.
%t A082941 DeleteCases[ParallelTable[If[OddQ[Length[IntegerDigits[n]]]&&PalindromeQ[n]&&Part[IntegerDigits[n], Ceiling[(Length[IntegerDigits[n]])/2]]==FixedPoint[Total[IntegerDigits[#]]&,Factorial[Floor[n/10^Ceiling[Length[IntegerDigits[n]]/2]]]^2],n,a],{n,100,10^8}],a] (* _J.W.L. (Jan) Eerland_, Dec 26 2021 *)
%Y A082941 Cf. A082940.
%Y A082941 Subsequence of A002113.
%K A082941 nonn,base,less
%O A082941 1,1
%A A082941 Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 30 2003
%E A082941 More terms from _J.W.L. (Jan) Eerland_, Dec 26 2021