|
| |
|
|
A089720
|
|
Primes p ending in 1 such that floor(p/7) = 0, 1 or 2 (mod 10).
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 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]
|
|
|
PROG
| (PARI) forprime( p=1, 9999, p%10==1 & p\7%10<3 & print1(p", ")) \\ M. F. Hasler, Apr 06 2009
|
|
|
CROSSREFS
| Sequence in context: A205812 A162568 A117047 * A174202 A139850 A174822
Adjacent sequences: A089717 A089718 A089719 * A089721 A089722 A089723
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 06 2004
|
|
|
EXTENSIONS
| Edited by M. F. Hasler (www.univ-ag.fr/~mhasler), Apr 06 2009
|
| |
|
|
