|
Search: id:A089716
|
|
|
| A089716 |
|
Primes that are both congruent to 1 mod 10 and congruent to 1 or 2 mod 9. |
|
+0
2
|
|
| 11, 101, 181, 191, 271, 281, 461, 541, 631, 641, 811, 821, 911, 991, 1091, 1171, 1181, 1361, 1451, 1531, 1621, 1721, 1801, 1811, 1901, 2081, 2161, 2251, 2341, 2351, 2441, 2521, 2531, 2621, 2711, 2791, 2801, 2971, 3061, 3251, 3331, 3511, 3691, 3701, 3881
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
A030430 INTERSECT { A061237 UNION A061238 }.
|
|
MATHEMATICA
|
digits=4*200 a=Delete[Union[Table[If[Mod[Prime[n], 10]==1, Prime[n], 0], {n, 1, digits}]], 1] d2=Dimensions[a][[1]] a9l3=Delete[Union[Table[If[Mod[a[[n]]/9, 10]<3, a[[n]], 0], {n, 1, d2}]], 1]
|
|
CROSSREFS
|
Sequence in context: A156753 A118592 A156617 this_sequence A084987 A083185 A007597
Adjacent sequences: A089713 A089714 A089715 this_sequence A089717 A089718 A089719
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 06 2004
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Feb 04 2008
|
|
|
Search completed in 0.002 seconds
|
