|
Search: id:A089720
|
|
|
| A089720 |
|
Pseudofactor sets of primes ending in 1: 7 less than 3. |
|
+0
1
|
|
| 11, 71, 151, 211, 281, 421, 431, 491, 571, 631, 641, 701, 911, 991, 1051, 1061, 1201, 1471, 1481, 1621, 1831, 1901, 2111, 2251, 2311, 2381, 2521, 2531, 2591, 2671, 2731, 2741, 2801, 3011, 3221, 3301, 3361, 3371, 3511, 3571, 3581, 3851, 3931, 4001, 4201
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
a[n]=Primes ending in 1 b(m) = if Mod[a[[n]]/7, 10]<3 then a[n]
|
|
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]] a7l3=Delete[Union[Table[If[Mod[a[[n]]/7, 10]<3, a[[n]], 0], {n, 1, d2}]], 1]
|
|
CROSSREFS
|
Sequence in context: A099336 A071746 A117047 this_sequence A139850 A049350 A123362
Adjacent sequences: A089717 A089718 A089719 this_sequence A089721 A089722 A089723
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 06 2004
|
|
|
Search completed in 0.002 seconds
|
