login
A187112
a(n) = cube root of the largest proper divisor of A187104(n).
2
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
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
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 05 2011
STATUS
approved