OFFSET
1,1
COMMENTS
Primes in A054385. - Bill McEachen, Nov 04 2021
FORMULA
EXAMPLE
See A077545.
MATHEMATICA
(See A077545.)
PROG
(PARI) select( {is_A184856(n, c=1-exp(-1)) = isprime(n) && for(k=floor(n*c), ceil((n+1)*c), k\c==n && return(1))}, [1..999]) \\ M. F. Hasler, Jul 12 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 23 2011
STATUS
approved