A208548 a(n) = floor((4/3)*(2+prime(n)) - prime(n+1)).

2, 1, 2, 1, 4, 3, 6, 5, 4, 10, 7, 11, 14, 13, 12, 14, 20, 17, 21, 24, 21, 25, 24, 24, 31, 34, 33, 36, 35, 26, 41, 40, 46, 39, 50, 47, 49, 53, 52, 54, 60, 53, 64, 63, 66, 57, 61, 73, 76, 75, 74, 80, 73, 80, 82, 84, 90, 87, 91, 94, 87, 86, 101, 104, 103, 94, 107

Offset

1,1

Comments

Conjecture: a(n)>0 for all n (cf. A062234, A207480).

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

Cf. A062234, A207480.

Sequence in context: A088931 A088980 A254436 * A157333 A002852 A266081

Adjacent sequences: A208545 A208546 A208547 * A208549 A208550 A208551

Keyword

nonn

Author

Zak Seidov, Feb 28 2012

Status

approved