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

Author

Reinhard Zumkeller, Aug 29 2005

Keywords

• nonn

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.

Crossrefs

Cf. A109763.

Programs

Mathematica

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