A101255 k's first occurrence in A102932.

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

Offset

0,2

Links

Table of n, a(n) for n=0..48.

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: A266726 A030194 A190494 * A356181 A047348 A186699

Adjacent sequences: A101252 A101253 A101254 * A101256 A101257 A101258

Keyword

nonn

Author

Lei Zhou and Robert G. Wilson v, Jan 22 2005

Status

approved