OFFSET
1,1
COMMENTS
The probability that a random integer is cubefree is 1/zeta(3) (see A088453).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..700 from R. J. Mathar)
EXAMPLE
312 is there because 2^3 divides 312 and 5^3 divides 312*2+1.
MATHEMATICA
noncfQ[n_] := AnyTrue[FactorInteger[n][[;; , 2]], # > 2 &]; Select[Range[7000], noncfQ[#] && noncfQ[2*# + 1] &] (* Amiram Eldar, May 25 2025 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Mar 03 2006
EXTENSIONS
Edited by Don Reble, Mar 05 2006
2875 inserted by R. J. Mathar, Dec 08 2015
STATUS
approved
