OFFSET
1,1
EXAMPLE
52 is in the sequence because 2704 (52^2) < 2744 (14^3) < 2756 (52^2+52) and also 140608 (52^3) < 140625 (375^2) < 140660 (52^3+52). - Michel Marcus, Sep 26 2014
PROG
(PARI)
for(n=1, 10^5, c=0; for(i=n^2+1, n^2+n-1, if(ispower(i)&&ispower(i)%3==0, c++; break)); for(j=n^3+1, n^3+n-1, if(issquare(j), c++; break)); if(c==2, print1(n, ", "))) \\ Derek Orr, Sep 26 2014
(Haskell)
a247628 n = a247628_list !! (n-1)
a247628_list = filter f a216155_list where
f x = any ((== 1) . a010057) [a002522 x .. a002378 x - 1]
-- Reinhard Zumkeller, Sep 26 2014
(PARI) lista(nn) = {for (n = 1, nn, c=0; cr=0; if (sqrtint(n^3) != sqrtint(n^3+n-1), while (c <= n^2, cr++; c = cr^3); if (c < n^2 + n, print1(n, ", ")); ); ); } \\ after C program by Alex Ratushnyak, Michel Marcus, Sep 27 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Sep 21 2014
EXTENSIONS
a(12)-a(23) from Michel Marcus, Sep 27 2014
a(24)-a(29) from Jon E. Schoenfield, Oct 11 2014
STATUS
approved