|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Luc Stevens (lms022(AT)yahoo.com), Apr 30 2006
|
|
|
STATUS
|
approved
|
| |
|
|
