|
Search: id:A123993
|
|
|
| A123993 |
|
Primes p such that p^2 is an interprime = average of two successive primes. |
|
+0
1
|
|
| 2, 3, 41, 907, 1151, 1553, 1609, 1667, 1801, 1907, 1933, 2351, 2473, 2531, 2953, 3001, 3571, 4007, 4073, 4253, 4663, 5023, 5417, 5881, 6143, 6257, 6329, 6343, 7879, 8461, 8521, 8563, 9041, 9067, 10103, 10781, 11243, 11251, 11257, 12097, 12413, 13217
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Numbers n such that n^2 is an interprime are listed in A075190(n) = {2, 3, 8, 9, 12, 15, 18, 21, 25, 33, 41, 51, 60, 64, ...}. a(n) are the primes from A075190.
|
|
MATHEMATICA
|
Select[PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; Select[ Range[25000], 2#^2 == PrevPrim[ #^2] + NextPrim[ #^2] &], PrimeQ]
|
|
CROSSREFS
|
Cf. A075190, A024675 - Interprimes.
Adjacent sequences: A123990 A123991 A123992 this_sequence A123994 A123995 A123996
Sequence in context: A059800 A094714 A042475 this_sequence A101821 A121475 A087571
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Oct 30 2006
|
|
|
Search completed in 0.002 seconds
|
