A112231 Repeat each prime in the sequence of natural numbers.

1, 2, 2, 3, 3, 4, 5, 5, 6, 7, 7, 8, 9, 10, 11, 11, 12, 13, 13, 14, 15, 16, 17, 17, 18, 19, 19, 20, 21, 22, 23, 23, 24, 25, 26, 27, 28, 29, 29, 30, 31, 31, 32, 33, 34, 35, 36, 37, 37, 38, 39, 40, 41, 41, 42, 43, 43, 44, 45, 46, 47, 47, 48, 49, 50, 51, 52, 53, 53, 54, 55, 56, 57, 58

Offset

1,2

Comments

a(n) = A112233(n) - A112232(n);

a(n + A000040(n) - 1) = A000040(n),

a(n + A000040(n)) = A000040(n),

a(n + A000040(n) + 1) = A000040(n) + 1.

Links

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

Mathematica

Table[If[PrimeQ[n], {n, n}, n], {n, 70}]//Flatten (* Harvey P. Dale, Aug 12 2019 *)

Crossrefs

Cf. A109763.

Sequence in context: A168581 A024699 A083479 * A334742 A213856 A173329

Adjacent sequences: A112228 A112229 A112230 * A112232 A112233 A112234

Keyword

nonn

Author

Reinhard Zumkeller, Aug 29 2005

Status

approved