OFFSET
0,1
COMMENTS
If duplicates are omitted, this is the sequence of primes p such that all p - phi(k) - 1 are composite for 1 <= phi(k)-1 < p. - Michel Lagneau, Sep 14 2012
If duplicates are omitted, the given entries equal A025584 (p: p-2 is not a prime) except A025584 includes 3 (since 1 is not prime). - Harry G. Coin, Nov 29 2015
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
Primes:= select(isprime, {2, seq(i, i=3..10^4, 2)}):
seq(min(Primes intersect map(`+`, Primes, 6*n)), n=0..1000); # Robert Israel, Nov 30 2015
MATHEMATICA
a={}; Do[i=6*n+1; While[Not[PrimeQ[i]&&PrimeQ[i-6*n]], i++ ]; AppendTo[a, i], {n, 0, 60}]; a (* Stefan Steinerberger, Nov 26 2007 *)
PROG
(PARI) a(n) = {k=1; while(k, if(ispseudoprime(prime(k)-6*n), return(prime(k))); k++)} \\ Altug Alkan, Dec 04 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Nov 25 2007
EXTENSIONS
More terms from Stefan Steinerberger, Nov 26 2007
STATUS
approved