|
| |
|
|
A140536
|
|
Primes congruent to 13 or 197 mod 210.
|
|
1
| |
|
|
13, 197, 223, 433, 617, 643, 827, 853, 1063, 1483, 1667, 1693, 1877, 2087, 2113, 2297, 2927, 2953, 3137, 3163, 3347, 3373, 3557, 3583, 3767, 3793, 4003, 4397, 4423, 4817, 5237, 5657, 5683, 5867, 6287, 6733, 6917, 7127, 7547, 7573, 7757, 7993, 8387, 8597
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MAPLE
| A140536 := proc(n) local a; if n = 1 then 13; else a := nextprime(procname(n-1)) ; while not a mod 210 in {13, 197} do a := nextprime(a) ; end do: return a; end if; end: seq(A140536(n), n=1..80) ; [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 22 2009]
|
|
|
MATHEMATICA
| Select[Prime[Range[1100]], MemberQ[{13, 197}, Mod[#, 210]]&] (* From Harvey P. Dale, May 03 2011 *)
|
|
|
PROG
| (MAGMA)[p: p in PrimesUpTo(9000)|p mod 210 in {13, 197}][From Vincenzo Librandi, Dec 18 2010]
|
|
|
CROSSREFS
| Cf. A140841. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 22 2009]
Sequence in context: A027773 A099271 A081796 * A130549 A157690 A055478
Adjacent sequences: A140533 A140534 A140535 * A140537 A140538 A140539
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Juri-Stepan Gerasimov (2stepan(AT)rambler.ru) Jul 28 2008
|
| |
|
|
