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

Links

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

Example

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

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

Crossrefs

Sequence in context: A166571 A201965 A318157 * A176929 A330563 A060400

Adjacent sequences: A117834 A117835 A117836 * A117838 A117839 A117840

Keyword

base,nonn

Author

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

Status

approved