STATUS
editing
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A072857
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
Primeval numbers: numbers that set a record for the number of distinct primes that can be obtained by permuting some subset of their digits.
(history; published version)
(history; published version)
MATHEMATICA
Join[{1}, DeleteDuplicates[Table[{n, Count[Union[FromDigits/@Flatten[Permutations[#]&/@Subsets[IntegerDigits[n]], 1]], _?PrimeQ]}, {n, 2, 125000}], GreaterEqual[#1[[2]], #2[[2]]]&][[;; , 1]]] (* The program generates the first 30 terms of the sequence. *) (* Harvey P. Dale, Nov 16 2024 *)
STATUS
approved
editing
LINKS
C. K. Caldwell, The Prime Glossary, <a href="httphttps://primes.utmt5k.eduorg/glossary/page.php?sort=Primeval
STATUS
reviewed
approved
STATUS
proposed
reviewed
STATUS
editing
proposed
LINKS
J. P. Delahaye, Primes Hunters, <a href="http://web.archive.org/web/20020901024608/http://www#int4">1379 is very primeval (in French)</a> [broken link]
STATUS
proposed
editing
STATUS
editing
proposed
PROG
(Python) # see linked program in A076449.
PROG
(Python) # see linked program in A076449.
STATUS
approved
editing