A173072 n-th prime minus n-th even number.
2, 1, 1, 1, 3, 3, 5, 5, 7, 11, 11, 15, 17, 17, 19, 23, 27, 27, 31, 33, 33, 37, 39, 43, 49, 51, 51, 53, 53, 55, 67, 69, 73, 73, 81, 81, 85, 89, 91, 95, 99, 99, 107, 107, 109, 109, 119, 129, 131, 131, 133, 137, 137, 145, 149, 153, 157, 157, 161, 163, 163, 171, 183, 185
Offset: 1
Crossrefs
See A179437 for another version.
Programs
-
Mathematica
Table[Prime[n]-2(n-1),{n,70}] (* Harvey P. Dale, Jul 04 2016 *)
Formula
a(n)=A000040(n) - 2n + 2.
Extensions
Edited by Charles R Greathouse IV, Mar 24 2010