login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A024707 Positions of multiples of 5 in A024702. 4
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 21 00:36 EDT 2022. Contains 353886 sequences. (Running on oeis4.)