|
|
A138122
|
|
Cousin primes, the lower of which is 7 (mod 10).
|
|
2
|
|
|
7, 11, 37, 41, 67, 71, 97, 101, 127, 131, 277, 281, 307, 311, 397, 401, 457, 461, 487, 491, 757, 761, 877, 881, 907, 911, 937, 941, 967, 971, 1087, 1091, 1297, 1301, 1447, 1451, 1567, 1571, 1597, 1601, 1867, 1871, 2137, 2141, 2347, 2351, 2377, 2381, 2437
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
a[0] = 7; a[n_] := a[n] = a[n - 1] + 10; Flatten[Table[If[PrimeQ[a[n]] && PrimeQ[a[n] + 4], {a[n], a[n] + 4}, {}], {n, 0, 1000}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Replaced Mathematica definition by humanly readable phrase. - R. J. Mathar, Nov 26 2008
|
|
STATUS
|
approved
|
|
|
|