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

Author

Clark Kimberling

Keywords

• nonn
• easy

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

Programs

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 *)

PARI

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

Extensions

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