OFFSET
1,1
FORMULA
a(n) = prime(n)+2 + A010051(prime(n)+1) + A010051(prime(n)+2) + A010051(prime(n)+3). [From Reinhard Zumkeller, Mar 29 2010]
MATHEMATICA
b[n_] := Boole[PrimeQ[n]];
a[n_] := With[{p = Prime[n]}, p + 2 + b[p + 1] + b[p + 2] + b[p + 3]];
Array[a, 59] (* Jean-François Alcover, Nov 12 2017, after Reinhard Zumkeller *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jaroslav Krizek, Mar 06 2010
EXTENSIONS
More terms from Reinhard Zumkeller, Mar 29 2010
Typos in data corrected by Jean-François Alcover, Nov 12 2017
STATUS
approved