login
A117837
Smaller of two consecutive prime numbers with the same digital product.
2
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
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
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 30 2006
STATUS
approved