OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..12288
MATHEMATICA
nn = 60; f[x_] := Times @@ Power[Which[# == 1, 1, # == 2, 1, True, NextPrime[#, -1]] & /@ First[#], Last[#] ] &@ Transpose@ FactorInteger@ x; Do[a[n] = Which[n <= 2, n - 1, OddQ[n], 1 + 2 a[f[n]], True, 2 a[n/2] ], {n, nn}]; Array[# - a[#] &, nn] (* Michael De Vlieger, Jul 25 2023 *)
PROG
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Jul 25 2023
STATUS
approved