A059408 - OEIS

A059408

a(n+1) = a(n)-th composite and a(1) = 13.

13, 22, 34, 50, 70, 95, 126, 165, 213, 272, 341, 424, 524, 640, 778, 938, 1127, 1345, 1596, 1886, 2217, 2596, 3031, 3523, 4086, 4724, 5445, 6259, 7176, 8205, 9364, 10666, 12118, 13744, 15560, 17583, 19827, 22328, 25099, 28171, 31569, 35334

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Chai Wah Wu, Table of n, a(n) for n = 1..900

MATHEMATICA

g[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1, k++ ]; k); NestList[ g, 13, 45 ]

PROG

(PARI) lista(nn) = {print1(a = 13, ", "); nb = 0; forcomposite(c=1, nn, nb++; if (nb==a, print1(c, ", "); a = c); ); } \\ Michel Marcus, May 14 2018

CROSSREFS

Cf. A006508, A059407.

Sequence in context: A351291 A374254 A336263 * A164455 A164504 A162245

Adjacent sequences: A059405 A059406 A059407 * A059409 A059410 A059411

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Jan 29 2001

STATUS

approved