A042997 -id:A042997 - cp's OEIS frontend

A179475 a(n) = A042997(n) mod 7.

2, 3, 5, 4, 6, 3, 5, 2, 3, 2, 6, 5, 4, 3, 5, 4, 3, 2, 6, 5, 6, 3, 5, 2, 4, 5, 4, 6, 2, 4, 3, 2, 6, 5, 4, 6, 2, 4, 3, 6, 3, 5, 2, 3, 6, 5, 4, 3, 5, 4, 3, 6, 6, 3, 5, 2, 2, 4, 6, 3, 2, 3, 2, 5, 4, 5, 2, 3, 6, 4, 6, 5, 2, 2, 6, 5, 3, 4, 2, 6, 5, 3, 5, 2, 4, 3, 2, 4, 3, 6, 5, 4, 6, 5, 4, 3, 4, 6, 3, 2, 3, 5, 4, 5, 2

Offset: 1

Zak Seidov, Jul 16 2010

nonn

Cf. A042997 Primes congruent to {2, 3, 4, 5, 6} mod 7,

Mathematica
```
Mod[Select[Prime[Range[500]],1
				
```

A179474 a(n) = position of A045392(n) in A042997.

Original entry on oeis.org

1, 8, 10, 18, 24, 29, 32, 37, 43, 56, 57, 61, 63, 67, 73, 74, 79, 84, 87, 100, 105, 110, 118, 125, 126, 130, 134, 143, 150, 157, 160, 165, 175, 177, 184, 185, 187, 188, 193, 200, 205, 215, 230, 233, 235, 242, 248, 256, 258, 261, 262, 265, 272, 276, 278, 279, 290

Offset: 1

Zak Seidov, Jul 16 2010

nonn

Positions of primes congruent to {2} mod 7 among primes congruent to {2,3,4,5,6} mod 7.

Cf. A042997 Primes congruent to {2, 3, 4, 5, 6} mod 7, A045392 Primes congruent to {2} mod 7.

pr=Prime[Range[500]];A042997=Select[pr,1A045392=Select[A042997,2==Mod[ #,7]&];
s=Flatten[Position[A042997,# ]&/@A045392]

cp's OEIS Frontend

A179475 a(n) = A042997(n) mod 7.

Views

Author

Keywords

Crossrefs

Programs

Mathematica