This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A117837 #12 Jun 29 2025 03:34:43
%S A117837 101,103,107,401,503,601,701,1009,1013,1019,1021,1031,1033,1039,1049,
%T A117837 1051,1061,1063,1069,1087,1091,1093,1097,1103,1301,1303,1601,1607,
%U A117837 1901,1913,2003,2011,2017,2027,2029,2039,2053,2063,2069,2081,2083,2087,2089
%N A117837 Smaller of two consecutive prime numbers with the same digital product.
%H A117837 Harvey P. Dale, <a href="/A117837/b117837.txt">Table of n, a(n) for n = 1..1000</a>
%e A117837 1913 and 1931 are two consecutive primes and have the same digital product.
%t A117837 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 *)
%t A117837 Prime[#]&/@SequencePosition[Table[Times@@IntegerDigits[p],{p,Prime[Range[ 400]]}],{x_,x_}][[;;,1]] (* _Harvey P. Dale_, Dec 03 2023 *)
%K A117837 base,nonn
%O A117837 1,1
%A A117837 Luc Stevens (lms022(AT)yahoo.com), Apr 30 2006