

A230083


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


4



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

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


EXAMPLE

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


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


CROSSREFS

Cf. A230082, A007954, A053666.
Sequence in context: A229390 A072274 A168499 * A069567 A163678 A175517
Adjacent sequences: A230080 A230081 A230082 * A230084 A230085 A230086


KEYWORD

nonn,base


AUTHOR

Shyam Sunder Gupta, Oct 08 2013


STATUS

approved



