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,1

Links

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

Example

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

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 *)

Crossrefs

Cf. A002385, A007954, A053666.

Sequence in context: A020919 A126053 A109905 * A113493 A060420 A077648

Adjacent sequences: A230197 A230198 A230199 * A230201 A230202 A230203

Keyword

nonn,base,less

Author

Shyam Sunder Gupta, Oct 11 2013

Status

approved