A249728 After a(1) = 1 each n appears A000720(n) times.

1, 2, 3, 3, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..10016

Mathematica

Join[{1}, Table[Table[n, PrimePi[n]], {n, 20}]//Flatten] (* Harvey P. Dale, Nov 24 2018 *)

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A249727 (COMPOSE (LEAST-GTE-I 0 1 A046992) -1+)) ;; One-based.

Crossrefs

Cf. A000720, A046992, A249727, A249809.

Sequence in context: A023964 A328179 A000267 * A060020 A300154 A166127

Adjacent sequences: A249725 A249726 A249727 * A249729 A249730 A249731

Keyword

nonn

Author

Antti Karttunen, Nov 06 2014

Status

approved