A117837 Smaller of two consecutive prime numbers with the same digital product.

101, 103, 107, 401, 503, 601, 701, 1009, 1013, 1019, 1021, 1031, 1033, 1039, 1049, 1051, 1061, 1063, 1069, 1087, 1091, 1093, 1097, 1103, 1301, 1303, 1601, 1607, 1901, 1913, 2003, 2011, 2017, 2027, 2029, 2039, 2053, 2063, 2069, 2081, 2083, 2087, 2089

Offset: 1

Author

Luc Stevens (lms022(AT)yahoo.com), Apr 30 2006

Keywords

• base
• nonn

Examples

			1913 and 1931 are two consecutive primes and have the same digital product.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

Mathematica

sdpQ[{a_,b_}]:=Times@@IntegerDigits[a]==Times@@IntegerDigits[b]; Select[ Partition[Prime[Range[400]],2,1],sdpQ][[All,1]] (* Harvey P. Dale, Jul 27 2020 *)
Prime[#]&/@SequencePosition[Table[Times@@IntegerDigits[p],{p,Prime[Range[ 400]]}],{x_,x_}][[;;,1]] (* Harvey P. Dale, Dec 03 2023 *)