login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A322357 a(n) = A322354(n) / A322356(n). 3
1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 6, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 5, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 6, 1, 2, 1, 2, 1, 6, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 3 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..16384

Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000

FORMULA

a(n) = A322354(n) / A322356(n).

MATHEMATICA

f[n_] := If[n == 1, 1, Times @@ Power @@@ ({#[[1]] + 2, #[[2]]} & /@ FactorInteger [n])]; rad[n_] := Times @@ (First@# & /@ FactorInteger@n); fun[p_, n_] := If[ PrimeQ[p + 2] && Divisible[n, p + 2], p + 2, 1]; a[n_] := GCD[rad[n], f[rad[n]]]/ Times @@ (fun[#, n] & /@ FactorInteger[n][[;; , 1]]); Array[a, 120] (* Amiram Eldar, Dec 16 2018 *)

PROG

(PARI)

A166590(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1] += 2); factorback(f); };

A322362(n) = gcd(n, A166590(n));

A007947(n) = factorback(factorint(n)[, 1]);

A322354(n) = A322362(A007947(n));

A322356(n) = { my(f = factor(n), m=1); for(i=1, #f~, if(isprime(f[i, 1]+2)&&!(n%(f[i, 1]+2)), m *= (f[i, 1]+2))); (m); };

A322357(n) = (A322354(n)/A322356(n));

CROSSREFS

Sequence in context: A167967 A160990 A347516 * A160989 A066788 A160988

Adjacent sequences:  A322354 A322355 A322356 * A322358 A322359 A322360

KEYWORD

nonn

AUTHOR

Antti Karttunen, Dec 16 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 29 13:17 EST 2021. Contains 349416 sequences. (Running on oeis4.)