|
Search: id:A101255
|
|
| |
|
| 1, 2, 4, 9, 11, 15, 18, 23, 82, 34, 76, 133, 118, 292, 342, 180, 71, 621, 278, 145, 528, 783, 280, 397, 1606, 1129, 1154, 1521, 928, 4510, 5597, 1607, 1379, 2039, 2283, 682, 1935, 6053, 10356, 4598, 4481, 9561, 4287, 14315, 6328, 15299, 3836, 9140, 6708
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
MATHEMATICA
|
f[n_] := Block[{k = 0, p = Prime[n]}, While[ Not[(2^k - p > 1 && PrimeQ[2^k - p]) || PrimeQ[2^k + p]], k++ ]; k]; t = Table[ f[n], {n, 10^4}]; Table[ Position[t, n][[1, 1]], {n, 0, 48}]
|
|
CROSSREFS
|
Cf. A102932.
Sequence in context: A005733 A096692 A030194 this_sequence A047348 A093859 A115905
Adjacent sequences: A101252 A101253 A101254 this_sequence A101256 A101257 A101258
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Lei Zhou (lzhou5(AT)emory.edu) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 22 2005
|
|
|
Search completed in 0.002 seconds
|
