A205151 a(n) = A205150(n)/n.

9, 10, 3, 5, 4, 7, 6, 16, 1, 2, 6, 9, 6, 3, 12, 8, 6, 6, 6, 1, 2, 3, 10, 6, 34, 3, 4, 11, 1, 6, 2, 4, 2, 3, 71, 3, 10, 3, 2, 9, 6, 1, 5, 7, 4, 5, 19, 3, 6, 17, 2, 17, 12, 2, 36, 11, 2, 4, 10, 3, 50, 1, 12, 2, 31, 1, 6, 13, 74, 23, 1, 2, 50, 5, 24, 23, 4, 1, 8

Offset

1,1

Comments

For a guide to related sequences, see A204892.

Links

Michel Marcus, Table of n, a(n) for n = 1..10000

Mathematica

(See the program at A205146.)

Prog

(PARI) s(m) = prime(m)*prime(m+1);
isok(k, n) = my(sk=s(k)); for (j=1, k-1, if (!Mod(sk-s(j), n), return (j)));
a(n) = my(k=1, x); while (!(j=isok(k, n)), k++); (s(k) - s(j))/n; \\ Michel Marcus, Jul 23 2021

Crossrefs

Cf. A205146, A204892.

Sequence in context: A034058 A347181 A333774 * A167691 A107434 A334681

Adjacent sequences: A205148 A205149 A205150 * A205152 A205153 A205154

Keyword

nonn

Author

Clark Kimberling, Jan 25 2012

Extensions

More terms from Michel Marcus, Jul 23 2021

Status

approved