|
|
A163628
|
|
Integers such that the two adjacent integers are a prime and three times a prime.
|
|
1
|
|
|
8, 10, 14, 16, 20, 22, 32, 38, 40, 52, 58, 68, 70, 88, 110, 112, 128, 130, 140, 158, 178, 182, 200, 212, 238, 250, 268, 292, 308, 310, 338, 380, 382, 410, 418, 448, 488, 490, 500, 502, 520, 542, 572, 578, 592, 598, 632, 682, 700, 718, 752, 770, 772, 788, 808
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
n = 1; A023208 = {}; Do[If[PrimeQ[(Prime[k] - 2 n)/(2 n + 1)], AppendTo[A023208, (Prime[k] - 2 n)/(2 n + 1)]], {k, 1, 1000}]; A023208;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Many terms like 44, 46, 62 etc. removed by R. J. Mathar, Aug 06 2009
|
|
STATUS
|
approved
|
|
|
|