OFFSET
1,1
COMMENTS
The old definition was "Start with the list of primes; accept 2 but remove the list of primes S(2); accept the next prime (3) but remove the list of primes S(3); repeat".
If p is a prime, S(p) denotes the list of primes {7p+2, 7(7p+2)+2, 7(7(7p+2)+2)+2, ...}, stopping as soon as we reach the first composite number.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[70]], !PrimeQ[(#-2)/7]&] (* Harvey P. Dale, Mar 17 2011 *)
PROG
(Magma) [p: p in PrimesUpTo(300)| not IsPrime((p-2)/7)]; // Vincenzo Librandi, Sep 12 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Apr 10 2010
EXTENSIONS
New definition from Jon E. Schoenfield, Jun 18 2010
STATUS
approved