OFFSET
0,2
COMMENTS
Sequence contains only terms of A048103.
Proof that A046337 gives the positions of even terms: see Charlie Neder's Feb 25 2019 comment in A235992 and recall that A276086 is never a multiple of 4, as it is a permutation of A048103, and furthermore it toggles the parity. See also comment in A327860. - Antti Karttunen, May 01 2022
LINKS
FORMULA
a(p) = 1 for all primes p.
From Antti Karttunen, Dec 05 2022: (Start)
(End)
For n >= 2, a(n) = A358669(n) / A359423(n). For n >= 1, A356299(n) | a(n). - Antti Karttunen, Jan 09 2023
MATHEMATICA
Block[{b = MixedRadix[Reverse@ Prime@ Range@ 12], f, g}, f[n_] := If[Abs@ n < 2, 0, n Total[#2/#1 & @@@ FactorInteger[Abs@ n]]]; g[n_] := Times @@ Power @@@ # &@ Transpose@ {Prime@ Range@ Length@ #, Reverse@ #} &@ IntegerDigits[n, b]; Array[GCD[f@ #, g@ #] &, 105]] (* Michael De Vlieger, Sep 30 2019 *)
PROG
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Antti Karttunen, Sep 30 2019
EXTENSIONS
Verbal description added to the definition by Antti Karttunen, May 01 2022
STATUS
approved