OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..229
MATHEMATICA
Select[Range[200000], Mod[#, Ceiling[#^(1/2)]] == Mod[#, Ceiling[#^(1/3)]] == 0 &] (* Vincenzo Librandi, Aug 21 2016 *)
PROG
(Magma)
[n: n in [1..2000] | n mod Ceiling((n^(1/2))) eq 0 and n mod Ceiling((n^(1/3))) eq 0 ];
(PARI) is(n) = Mod(n, ceil(sqrt(n)))==0 && Mod(n, ceil(n^(1/3)))==0 \\ Felix Fröhlich, Aug 21 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Aug 26 2015
STATUS
approved