OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Floor[(4/3)*(2+Prime[n])-Prime[n+1]], {n, 100}]
Floor[4/3*(2+#[[1]])-#[[2]]]&/@Partition[Prime[Range[70]], 2, 1] (* Harvey P. Dale, Apr 13 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 28 2012
STATUS
approved