OFFSET
1,1
COMMENTS
Or, positions of squarefree numbers in A014613.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
c = 0; s = {}; Do[If[4 == PrimeOmega[k], c++; If[{1, 1, 1, 1} == (#[[2]] & /@ FactorInteger[k]) , AppendTo[s, c]]], {k, 16, 3000}]; s
(* or *) c = 0; s2 = {}; Do[If[4 == PrimeOmega[k], c++; If[SquareFreeQ[k] , AppendTo[s2, c]]], {k, 16, 3000}]; s2
PROG
(PARI) {c = 0; for (k = 16, 3000, if (4 == bigomega (k), c++; if (issquarefree (k), print1 (c ", "))))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 19 2015
STATUS
approved