login
A101255
k's first occurrence in A102932.
0
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
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
KEYWORD
nonn
AUTHOR
Lei Zhou and Robert G. Wilson v, Jan 22 2005
STATUS
approved