A267098 a(n) = number of 4k+3 primes among first n primes; least monotonic left inverse of A080148.
0, 1, 1, 2, 3, 3, 3, 4, 5, 5, 6, 6, 6, 7, 8, 8, 9, 9, 10, 11, 11, 12, 13, 13, 13, 13, 14, 15, 15, 15, 16, 17, 17, 18, 18, 19, 19, 20, 21, 21, 22, 22, 23, 23, 23, 24, 25, 26, 27, 27, 27, 28, 28, 29, 29, 30, 30, 31, 31, 31, 32, 32, 33, 34, 34, 34, 35, 35, 36, 36, 36, 37, 38, 38, 39, 40, 40, 40, 40, 40, 41, 41, 42
Offset: 1
Keywords
Links
- Antti Karttunen, Table of n, a(n) for n = 1..65537
Programs
-
Mathematica
Accumulate[Table[If[IntegerQ[(n-3)/4],1,0],{n,Prime[Range[90]]}]] (* Harvey P. Dale, Mar 07 2018 *)
Comments