A230083 Smaller of two consecutive primes whose product of digits is equal and nonzero.

1913, 2819, 6719, 14519, 16319, 18379, 19319, 21419, 29819, 34613, 35617, 35879, 36979, 37379, 37619, 37813, 39119, 45613, 46619, 46919, 49279, 51613, 55313, 56179, 56713, 58613, 62219, 63179, 65479, 66413, 74779, 75913, 76213, 76579, 76679, 79319, 82619

Offset: 1

Author

Shyam Sunder Gupta, Oct 08 2013

Keywords

• nonn
• base

Examples

			1913 is in the sequence because 1913 and 1931 are consecutive primes and the product of the digits of each = 27.
		

Links

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

Crossrefs

Cf. A230082, A007954, A053666.

Programs

Mathematica

a = {}; m = 1; s = 1; Do[If[(y = Apply[Times, IntegerDigits[x = Prime[n]]]) == s && s != 0, m = m + 1; If[m > 1, AppendTo[a, Prime[n - 1]]], m = 1]; s = y, {n, 1, 10000}]; a