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 A107612 #10 Jul 02 2025 16:02:02
%S A107612 2,211,2111,111121,111211,112111,1111211,1111111121,1111211111,
%T A107612 1121111111,111111211111,111211111111,2111111111111,
%U A107612 111111111111112111,111111112111111111,111111211111111111,112111111111111111
%N A107612 Primes with digital product = 2.
%C A107612 Corresponding indices of primes in A107611. Cf. A053666, A101987.
%H A107612 Harvey P. Dale, <a href="/A107612/b107612.txt">Table of n, a(n) for n = 1..684</a>
%F A107612 A107612(n) = prime(A107611(n)).
%p A107612 for i from 0 to 30 do it:=sum(10^j, j=0..i): for k from 0 to i do if isprime(it+10^k) then printf(`%d,`, it+10^k) fi: od:od: (Sellers)
%t A107612 Flatten[ Table[ Select[ Sort[ FromDigits /@ Permutations[ Flatten[{2, Table[1, {n}]}]]], PrimeQ[ # ] &], {n, 0, 19}]] (* _Robert G. Wilson v_, May 19 2005 *)
%t A107612 Select[Flatten[Table[FromDigits/@Permutations[PadRight[{2},n,1]],{n,20}]],PrimeQ]//Sort (* _Harvey P. Dale_, May 28 2017 *)
%Y A107612 Cf. A053666, A101987, A107611.
%Y A107612 Cf. A004022, A107689, A107690, A107691, A107692, A107693, A107694, A107695, A107696, A107697, A107698.
%K A107612 base,nonn
%O A107612 1,1
%A A107612 _Zak Seidov_, May 17 2005
%E A107612 More terms from _Robert G. Wilson v_ and _James Sellers_, May 19 2005