The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A107696

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A107696

Primes with digital product = 10.
(history; published version)

#9 by Charles R Greathouse IV at Thu Sep 08 08:45:18 EDT 2022

PROG

(MAGMAMagma) [p: p in PrimesUpTo(3*10^6) | &*Intseq(p) eq 10]; // Vincenzo Librandi, Jul 27 2016

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#8 by Michel Marcus at Wed Jul 27 02:28:36 EDT 2016

STATUS

reviewed

approved

#7 by Joerg Arndt at Wed Jul 27 02:25:23 EDT 2016

STATUS

proposed

reviewed

#6 by Vincenzo Librandi at Wed Jul 27 02:13:43 EDT 2016

STATUS

editing

proposed

#5 by Vincenzo Librandi at Wed Jul 27 02:13:25 EDT 2016

DATA

251, 521, 11251, 12511, 15121, 25111, 111521, 115211, 121151, 151121, 152111, 211151, 511211, 11152111, 11511211, 12111511, 15111211, 15121111, 51111211, 111121151, 111512111, 112111511, 112151111, 112511111, 115211111, 121511111, 151211111

MATHEMATICA

Select[Prime[Range[3 10^6]], Times@@IntegerDigits[#] == 10 &] (* Vincenzo Librandi, Jul 27 2016 *)

PROG

(MAGMA) [p: p in PrimesUpTo(3*10^6) | &*Intseq(p) eq 10]; // Vincenzo Librandi, Jul 27 2016

STATUS

approved

editing

#4 by Russ Cox at Fri Mar 30 17:31:15 EDT 2012

AUTHOR

Zak Seidov and _Robert G. Wilson v (rgwv(AT)rgwv.com), _, May 20 2005

Discussion

Fri Mar 30

17:31

OEIS Server: https://oeis.org/edit/global/156

#3 by Russ Cox at Fri Mar 30 17:26:16 EDT 2012

AUTHOR

_Zak Seidov (zakseidov(AT)yahoo.com) _ and Robert G. Wilson v (rgwv(AT)rgwv.com), May 20 2005

Discussion

Fri Mar 30

17:26

OEIS Server: https://oeis.org/edit/global/139

#2 by N. J. A. Sloane at Mon Oct 09 03:00:00 EDT 2006

KEYWORD

base,nonn,new

AUTHOR

Zak Seidov (zakseidov(AT)yahoo.com) & and Robert G. Wilson v (rgwv(AT)rgwv.com), May 20 2005

#1 by N. J. A. Sloane at Tue Jul 19 03:00:00 EDT 2005

NAME

Primes with digital product = 10.

DATA

OFFSET

1,1

MATHEMATICA

Flatten[ Table[ Select[ Sort[ FromDigits /@ Permutations[ Flatten[{2, 5, Table[1, {n}]} ]]], PrimeQ[ # ] &], {n, 0, 8}]]

CROSSREFS

Cf. A004022, A107612, A107689, A107690, A107691, A107692, A107693, A107694, A107695, A107697, A107698.

KEYWORD

base,nonn

AUTHOR

Zak Seidov (zakseidov(AT)yahoo.com) & Robert G. Wilson v (rgwv(AT)rgwv.com), May 20 2005

STATUS

approved