OFFSET
1,2
COMMENTS
Positions of 0's in A337736.
This sequence has a positive asymptotic density (Shiu, 1991).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
P. Shiu, The distribution of cube-full numbers, Glasgow Mathematical Journal, Vol. 33, No. 3 (1991), pp. 287-295.
FORMULA
1 is a term since the two numbers between 1^2 = 1 and (1+1)^2 = 4, 2 and 3, are not cubefull.
MATHEMATICA
cubQ[n_] := (n == 1) || Min @@ FactorInteger[n][[;; , 2]] > 2; Select[Range[1000], ! AnyTrue[Range[#^3 + 1, (# + 1)^3 - 1], cubQ] &]
(* or *)
seq[max_] := Module[{cubs = Union[Flatten[Table[i^5*j^4*k^3, {i, 1, Surd[max, 5]}, {j, 1, Surd[max/i^5, 4]}, {k, Surd[max/(i^5*j^4), 3]}]]], s = {}}, Do[If[IntegerQ[Surd[cubs[[k]], 3]], AppendTo[s, k]], {k, 1, Length[cubs]}]; Position[Differences[s], 1] // Flatten]; seq[10^10]
PROG
(PARI) iscub(n) = n == 1 || vecmin(factor(n)[, 2]) >= 3;
is(n) = for(k = n^3+1, (n+1)^3-1, if(iscub(k), return(0))); 1;
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 14 2024
STATUS
approved