OFFSET
1,1
COMMENTS
The sequence is finite, since lim A071904(n)/n = 2.
FORMULA
Define b(k) = 6k + 3 for k > 0. Delete all terms except those such that (b(k) - 1)/2 - pi(k) + 1 = b(k)/3. Then a(k) = b(k)/3. - Alonso del Arte, Dec 25 2014
EXAMPLE
MATHEMATICA
Select[Range[9, 1197, 6], (# - 1)/2 - PrimePi[#] + 1 == #/3 &]/3 (* Alonso del Arte, Dec 25 2014 *)
Module[{nn=10000, cmps}, cmps=Select[Range[nn], CompositeQ[#]&&OddQ[#]&]; Select[Thread[ {Range[Length[cmps]], cmps}], #[[2]]==3#[[1]]&]][[;; , 1]] (* Harvey P. Dale, Nov 22 2023 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Vladimir Shevelev, Dec 25 2014
STATUS
approved