A024705 Positions of odd numbers in A024702.

3, 5, 6, 8, 10, 12, 14, 16, 17, 18, 19, 23, 26, 28, 29, 32, 34, 35, 37, 38, 40, 41, 42, 45, 47, 49, 50, 54, 57, 59, 61, 62, 63, 66, 67, 69, 70, 74, 75, 77, 78, 81, 82, 86, 89, 91, 94, 95, 97, 99, 100, 101, 102, 103, 105, 107, 112, 114, 117, 119, 120, 121, 123, 124, 125, 126, 127, 130, 131, 134

Offset

1,1

Comments

Indices of primes > 3 which are 3 or 5 mod 8. - Charles R Greathouse IV, May 30 2013

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

Flatten[Position[Table[If[MemberQ[{3, 5}, Mod[n, 8]], 1, 0], {n, Prime[ Range[ 3, 200]]}], 1]]+2 (* Harvey P. Dale, May 26 2018 *)

Prog

(PARI) apply(n->primepi(n), select(n->n%8==3||n%8==5, primes(100))) \\ Charles R Greathouse IV, May 30 2013

Crossrefs

Sequence in context: A191777 A284590 A287724 * A190192 A187977 A120243

Adjacent sequences: A024702 A024703 A024704 * A024706 A024707 A024708

Keyword

nonn,easy

Author

Clark Kimberling

Extensions

Adjusted for offset. - Charles R Greathouse IV, May 30 2013

Status

approved