|
Search: id:A089720
|
|
|
| A089720 |
|
Primes p ending in 1 such that floor(p/7) = 0, 1 or 2 (mod 10). |
|
+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
|
|
|
COMMENT
|
Original definition: Pseudofactor sets of primes ending in 1: 7 less than 3.
A prime ending in 1 is listed as a[n] if Mod(floor(a[n]/7),10) < 3, where Mod() is the binary "remainder" operator.
|
|
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]
|
|
PROGRAM
|
(PARI) forprime( p=1, 9999, p%10==1 & p\7%10<3 & print1(p", ")) \\ M. F. Hasler, Apr 06 2009
|
|
CROSSREFS
|
Sequence in context: A071746 A162568 A117047 this_sequence A139850 A049350 A164559
Adjacent sequences: A089717 A089718 A089719 this_sequence A089721 A089722 A089723
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 06 2004
|
|
EXTENSIONS
|
Edited by M. F. Hasler (MHasler(AT)univ-ag.fr), Apr 06 2009
|
|
|
Search completed in 0.002 seconds
|
