|
| |
|
|
A120312
|
|
Numbers whose PrimePi prime distribution are four apart and which index primes of the 4*k+1 type ( correction).
|
|
0
| |
|
|
7, 10, 21, 37, 40, 53, 55, 57, 71, 89, 108, 134, 135, 136, 151, 152, 174, 176, 178, 194, 196
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
FORMULA
| a(n) = If[Mod[PrimePi[n], 4] == 0&& Mod[Prime[n], 4] - 1 == 0, n]
|
|
|
MATHEMATICA
| a = Flatten[Table[If[Mod[PrimePi[n], 4] == 0&& Mod[Prime[n], 4] - 1 == 0, n, {}], {n, 1, 200}]]
|
|
|
CROSSREFS
| Sequence in context: A122226 A064210 A097634 * A074377 A117618 A103119
Adjacent sequences: A120309 A120310 A120311 * A120313 A120314 A120315
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Jun 20 2006
|
|
|
EXTENSIONS
| Needs to be edited in the same way that I edited A120309. - N. J. A. Sloane (njas(AT)research.att.com), Jul 22 2006
|
| |
|
|
