A115733 prime(n)-n, repeated (prime(n)-n) times.

1, 1, 2, 2, 3, 3, 3, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19

Offset: 1

Author

Zak Seidov, Jan 30 2006

Keywords

• nonn
• less

Crossrefs

Cf. A014689, A115732, A002024.

Programs

Mathematica

Flatten@Table[Prime[n]-n, {n, 10}, {Prime[n]-n}]