A348502 a(n) = A348498(A276086(n)).

0, 1, 1, 5, 1, 7, 1, 7, 8, 31, 13, 41, 1, 9, 11, 37, 8, 47, 3, 11, 14, 43, 19, 53, 2, 13, 17, 49, 11, 59, 1, 9, 10, 41, 17, 55, 12, 59, 71, 247, 106, 317, 19, 73, 92, 289, 127, 359, 26, 87, 113, 331, 148, 401, 33, 101, 134, 373, 169, 443, 1, 11, 13, 47, 10, 61, 17, 69, 86, 277, 121, 347, 12, 83, 107, 319, 71, 389, 31

Offset

0,4

Links

Antti Karttunen, Table of n, a(n) for n = 0..11550

Index entries for sequences related to primorial base

Mathematica

b = MixedRadix[Reverse@ Prime@ Range@ 12]; f[n_] := If[n < 2, 0, n Total[#2/#1 & @@@ FactorInteger[n]]]; Map[Function[n, GCD[f[n], DivisorSum[n, # f[n/#] &]]*Apply[Times, FactorInteger[n][[All, 1]]]/n], Array[Times @@ Power @@@ # &@ Transpose@ {Prime@ Range@ Length@ #, Reverse@ #} &@ IntegerDigits[#, b] &, 79, 0]] (* Michael De Vlieger, Oct 25 2021 *)

Prog

(PARI)
\\ Needs also code from A348498:
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A348502(n) = A348498(A276086(n));

Crossrefs

Cf. A276086, A348498, A348500, A348501.

Cf. also A342002 for a similar scatter plot.

Sequence in context: A346474 A353574 A265293 * A340089 A089027 A354432

Adjacent sequences: A348499 A348500 A348501 * A348503 A348504 A348505

Keyword

nonn,base,look

Author

Antti Karttunen, Oct 23 2021

Status

approved