|
%I #15 Aug 17 2022 16:11:49
%S 2,3,5,7,11,13,17,41,43,47,53,59,73,83,89,97,113,163,173,433,443,449,
%T 463,491,499,541,547,557,563,577,593,599,733,773,811,853,857,859,863,
%U 877,881,883,887,911,977,991,997,1117,1163,1663,1733,1777,4111,4133,4177
%N Primes with digits in alphabetical order (in English).
%H Michael S. Branicky, <a href="/A053434/b053434.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/WordSequence.html">Word Sequence</a>
%o (Python)
%o from sympy import isprime
%o from itertools import count, islice, combinations_with_replacement as cwr
%o def bgen(): # generator terms of A053432 not ending in 0 or 2
%o for d in count(1):
%o yield from sorted(int("".join(t)) for t in cwr("85491763", d))
%o def agen(): yield 2; yield from filter(isprime, bgen())
%o print(list(islice(agen(), 55))) # _Michael S. Branicky_, Aug 17 2022
%Y Intersection of primes and A053432.
%K easy,nonn,word,base
%O 1,1
%A _G. L. Honaker, Jr._, Jan 10 2000
|
