A230200 Product of digits of n-th palindromic prime.

2, 3, 5, 7, 1, 0, 3, 5, 8, 9, 9, 45, 63, 72, 98, 245, 392, 441, 81, 162, 0, 0, 0, 3, 4, 16, 28, 32, 27, 72, 81, 48, 112, 100, 125, 0, 108, 180, 216, 196, 441, 64, 256, 243, 648, 729, 0, 0, 0, 0, 0, 0, 45, 108, 144, 405, 720, 1152, 0, 225, 675, 1575, 648

Offset: 1

Author

Shyam Sunder Gupta, Oct 11 2013

Keywords

• nonn
• base
• less

Examples

			a(6) = 0, since product of digits of 6th palindromic prime, that is, 101 is 0.
		

Links

• Shyam Sunder Gupta, Table of n, a(n) for n = 1..5953

Crossrefs

Cf. A002385, A007954, A053666.

Programs

Mathematica

a = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z], s = Apply[Times, IntegerDigits[z]]; AppendTo[a, s]], {n, 1, 10^5}]; Insert[a, 1, 5]
Times@@IntegerDigits[#]&/@Select[Prime[Range[5000]],PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 17 2017 *)