cp's OEIS Frontend

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.

A107697 Primes with digital product = 12.

This page as a plain text file.
%I A107697 #9 Sep 08 2022 08:45:18
%S A107697 43,223,431,1223,1621,2161,2213,3221,6121,6211,11261,11621,12161,
%T A107697 12611,13411,21611,26111,41113,41131,61121,61211,111143,111341,111431,
%U A107697 112213,114113,114311,121123,121321,122131,123121,131221,141131,141311,143111
%N A107697 Primes with digital product = 12.
%H A107697 Vincenzo Librandi, <a href="/A107697/b107697.txt">Table of n, a(n) for n = 1..86</a>
%t A107697 Union[ Flatten[ Table[ Select[ Sort[ FromDigits /@ Join[ Permutations[ Flatten[{2, 6, Table[1, {n - 1}]}]], Permutations[ Flatten[{3, 4, Table[1, {n - 1}]}]], Permutations[ Flatten[{2, 2, 3, Table[1, {n - 2}]}] ]]], PrimeQ[ # ] & ], {n, 0, 5}]]]
%t A107697 Select[Prime[Range[75000]], Times@@IntegerDigits[#] == 12 &] (* _Vincenzo Librandi_, Jul 27 2016 *)
%o A107697 (Magma) [p: p in PrimesUpTo(1000000) | &*Intseq(p) eq 12]; // _Vincenzo Librandi_, Jul 27 2016
%Y A107697 Cf. A004022, A107612, A107689, A107690, A107691, A107692, A107693, A107694, A107695, A107696, A107698.
%K A107697 base,nonn
%O A107697 1,1
%A A107697 _Zak Seidov_ and _Robert G. Wilson v_, May 20 2005