A247234 First occurrence of 2n in A035096.

2, 4, 7, 20, 8, 17, 39, 134, 45, 206, 149, 49, 66, 321, 88, 98, 637, 382, 259, 284, 820, 302, 310, 1102, 1597, 3763, 1140, 3432, 741, 532, 4751, 856, 4855, 3446, 2130, 3256, 3407, 694, 2250, 4878, 5588, 13199, 15211, 9040, 7426, 11126, 5931, 11699, 22463, 26223, 37546, 37602, 42795, 32776

Offset

1,1

Links

Robert G. Wilson v, Table of n, a(n) for n = 1..276

Example

a(1) = 2 since the first appearance of 2 occurs at A035096(2);
a(3) = 7 since the first appearance of 6 occurs at A035096(7).

Mathematica

f[n_] := Block[{p = Prime@ n}, q = 1 + 2p; While[ !PrimeQ@ q, q += 2p]; (q - 1)/p]; f[1] = 1; t = Table[0, {1000}]; k = 2; While[k < 1000000001, a = f@ k /2; If[ t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++]]; t

Crossrefs

Cf. A035096.

Sequence in context: A101569 A225435 A243049 * A327444 A291403 A101805

Adjacent sequences: A247231 A247232 A247233 * A247235 A247236 A247237

Keyword

nonn

Author

Robert G. Wilson v, Dec 28 2014

Status

approved