A187112 a(n) = cube root of the largest proper divisor of A187104(n).

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

Offset

1,1

Links

Zak Seidov, Table of n, a(n) for n = 1..2671

Formula

a(n) = A048766(A032742(A187104(n))). - Michel Marcus, Aug 09 2014

Prog

(PARI) lista(nn) = {forcomposite(n=1, nn, if (ispower(divisors(n)[numdiv(n)-1], 3, &k), print1(k, ", ")); ); } \\ Michel Marcus, Aug 09 2014

Crossrefs

Cf. A187104 (largest proper divisor is a cube).

Sequence in context: A061451 A205542 A086155 * A094606 A080595 A302779

Adjacent sequences: A187109 A187110 A187111 * A187113 A187114 A187115

Keyword

nonn

Author

Zak Seidov, Mar 05 2011

Status

approved