OFFSET
1,1
COMMENTS
A175119(n) = a(n+1) - a(n) + 1.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
MATHEMATICA
a = 2; s = {a}; c = 1; lim = 50; While[c < m, p = NextPrime[a]; While[PrimeQ[p - a + 1], p = NextPrime[p]]; a = p; AppendTo[s, a]; c++]; s (* Zak Seidov, Nov 19 2012 *)
PROG
(Haskell)
a175118 n = a175118_list !! (n-1)
a175118_list = 2 : f 2 a000040_list where
f x ps = g $ dropWhile (<= x) ps where
g (q:qs) | a010051' (q - x + 1) == 1 = g qs
| otherwise = q : f q qs
-- Reinhard Zumkeller, Nov 20 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Feb 14 2010
EXTENSIONS
Extended by Ray Chandler, Mar 10 2010
STATUS
approved