A299763 a(n) = 1 + A182986(n).

1, 3, 4, 6, 8, 12, 14, 18, 20, 24, 30, 32, 38, 42, 44, 48, 54, 60, 62, 68, 72, 74, 80, 84, 90, 98, 102, 104, 108, 110, 114, 128, 132, 138, 140, 150, 152, 158, 164, 168, 174, 180, 182, 192, 194, 198, 200, 212, 224, 228, 230, 234, 240, 242, 252, 258, 264, 270, 272, 278, 282, 284

Offset

1,2

Comments

Are these the indices of the rows of A299762 where there is a record?

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Formula

a(n) = A028815(n-1) - [n=1].

a(n) = A008864(n-1) for n >= 2, with a(1) = 1.

Mathematica

A299763[n_]:= If[n==1, 1, Prime[n-1] +1];
Table[A299763[n], {n, 70}] (* G. C. Greubel, Aug 05 2024 *)

Prog

(Magma)
A299763:= func< n | n eq 1 select 1 else NthPrime(n-1) + 1 >;
[A299763(n): n in [1..70]]; // G. C. Greubel, Aug 05 2024
(SageMath)
def A299763(n): return 1 if n==1 else nth_prime(n-1) + 1
[A299763(n) for n in range(1, 71)] # G. C. Greubel, Aug 05 2024

Crossrefs

First differences are in A054541.

Cf. A008864, A028815, A182986, A299762.

Essentially the same as A008864, A028815, A055670, A135731, A175216.

Sequence in context: A365168 A203444 A008864 * A214583 A232721 A227956

Adjacent sequences: A299760 A299761 A299762 * A299764 A299765 A299766

Keyword

nonn,easy

Author

Omar E. Pol, Mar 14 2018

Status

approved