OFFSET
1,8
LINKS
Béla Bajnok, Additive Combinatorics in Groups and Geometric Combinatorics on Spheres, arXiv:2211.01890 [math.NT], 2022. See p. 4.
Béla Bajnok and Imre Ruzsa, The independence number of a subset of an abelian group. Integers, 3 (2003), Paper A2. See p. 5.
FORMULA
a(n) = floor(n/4) if n is even, a(n) = (1 + 1/p)*n/6 if n is odd with smallest prime divisor p congruent 5 mod 6, and a(n) = floor(n/6) otherwise.
MATHEMATICA
b[n_]:=Min[Intersection[Divisors[n], Select[Prime[Range[PrimePi[n]]], Mod[#, 6]==5 &]]]; a[n_]:=If[EvenQ[n], Floor[n/4], If[IntegerQ[b[n]], (1+1/b[n])n/6, Floor[n/6]]]; Array[a, 80]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Stefano Spezia, Nov 12 2022
STATUS
approved
