A024707 Positions of multiples of 5 in A024702.

5, 8, 10, 11, 13, 17, 18, 20, 22, 24, 26, 29, 32, 34, 35, 36, 41, 42, 43, 46, 47, 50, 52, 53, 54, 57, 58, 60, 64, 67, 70, 72, 75, 77, 79, 80, 81, 82, 83, 85, 87, 89, 92, 94, 95, 97, 98, 100, 104, 105, 109, 110, 114, 115, 116, 120, 121, 125, 126, 127, 128, 131, 133, 135, 136, 140, 141

Offset

1,1

Links

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

Formula

Numbers n such that ((prime(n) mod 5) mod 3) = 1; e.g., prime(10) = 29, (29 mod 5) = 4, and (4 mod 3) = 1. Clark Kimberling, Jul 05 2014

Maple

A024707:=n->`if`((ithprime(n) mod 5) mod 3 = 1, n, NULL): seq(A024707(n), n=1..150); # Wesley Ivan Hurt, Jul 06 2014

Mathematica

z = 300; u = Mod[Table[Mod[Prime[n], 5], {n, 1, z}], 3] (* A244738 *)
v1 = Flatten[Position[u, 0]]  (* A244739 *)
v2 = Flatten[Position[u, 1]]  (* A024707 *)
v3 = Flatten[Position[u, 2]]  (* A244741 *) (* Clark Kimberling , Jul 05 2014 *)

Prog

(PARI) apply(n->primepi(n), select(n->n%9==1||n%9==8, primes(100))) \\ Charles R Greathouse IV, May 31 2013

Crossrefs

Cf. A244738, A244739, A244741.

Sequence in context: A180748 A350377 A121901 * A156288 A270535 A287110

Adjacent sequences: A024704 A024705 A024706 * A024708 A024709 A024710

Keyword

nonn

Author

Clark Kimberling

Status

approved