|
| |
|
|
A045472
|
|
Primes congruent to {1, 6} mod 7.
|
|
4
|
|
|
|
13, 29, 41, 43, 71, 83, 97, 113, 127, 139, 167, 181, 197, 211, 223, 239, 251, 281, 293, 307, 337, 349, 379, 419, 421, 433, 449, 461, 463, 491, 503, 547, 587, 601, 617, 631, 643, 659, 673, 701, 727, 743, 757, 769
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Appears to be the primes p such that p^4 mod 210 =1. [From Gary Detlefs, Dec 29 2011]
Primes in A047336, also in A113801. [Reinhard Zumkeller, Jan 07 2012]
|
|
|
LINKS
|
_Reinhard Zumkeller_, Table of n, a(n) for n = 1..10000
|
|
|
MAPLE
|
for n from 1 to 800 do if(isprime(n)) and (n^4 mod 210 =1) then print(n) fi od. [From Gary Detlefs, Dec 29 2011]
|
|
|
MATHEMATICA
|
Select[Prime[Range[200]], MemberQ[{1, 6}, Mod[#, 7]]&] (* Vincenzo Librandi, Aug 13 2012 *)
|
|
|
PROG
|
(Haskell)
a045472 n = a045472_list !! (n-1)
a045472_list = [x | x <- a047336_list, a010051 x == 1]
-- Reinhard Zumkeller, Jan 07 2012
(MAGMA) [ p: p in PrimesUpTo(1000) | p mod 7 in {1, 6} ]; // Vincenzo Librandi, Aug 13 2012
|
|
|
CROSSREFS
|
Cf. A000040, A010051.
Sequence in context: A160026 A141555 A036974 * A141293 A120827 A044074
Adjacent sequences: A045469 A045470 A045471 * A045473 A045474 A045475
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
N. J. A. Sloane.
|
|
|
STATUS
|
approved
|
| |
|
|
