A290496 First differences of A001751.

1, 1, 1, 1, 1, 3, 1, 2, 1, 3, 2, 3, 1, 3, 3, 2, 3, 3, 1, 3, 2, 3, 1, 6, 5, 1, 2, 1, 5, 4, 2, 1, 5, 3, 1, 3, 3, 5, 3, 4, 2, 3, 1, 2, 4, 5, 4, 5, 4, 3, 3, 2, 3, 4, 3, 2, 6, 1, 5, 3, 1, 6, 5, 1, 2, 10, 2, 1, 3, 2, 3, 4, 5, 3, 4, 5, 3, 1, 2, 4, 6, 2, 10, 3, 3, 5, 1

Offset

1,6

Links

Table of n, a(n) for n=1..87.

Mathematica

With[{nn = 56}, Differences@ Union@ Flatten@ {#, 2 TakeWhile[#, # < Prime[nn]/2 &]} &@ Prime@ Range@ nn]

Prog

(PARI) lista(nn) = {last = 2; for (n=3, nn, if (isprime(n) || (!(n%2) && isprime(n/2)), print1(n - last, ", "); last = n; ); ); }

Crossrefs

Cf. A001751, A290488, A290489, A290541.

Sequence in context: A029351 A178638 A340786 * A035115 A370897 A146969

Adjacent sequences: A290493 A290494 A290495 * A290497 A290498 A290499

Keyword

nonn

Author

Michel Marcus, Aug 04 2017

Status

approved