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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A343431 Part of n composed of prime factors of the form 6k-1. 1
 1, 1, 1, 1, 5, 1, 1, 1, 1, 5, 11, 1, 1, 1, 5, 1, 17, 1, 1, 5, 1, 11, 23, 1, 25, 1, 1, 1, 29, 5, 1, 1, 11, 17, 5, 1, 1, 1, 1, 5, 41, 1, 1, 11, 5, 23, 47, 1, 1, 25, 17, 1, 53, 1, 55, 1, 1, 29, 59, 5, 1, 1, 1, 1, 5, 11, 1, 17, 23, 5, 71, 1, 1, 1, 25, 1, 11, 1, 1, 5, 1, 41, 83, 1, 85, 1, 29, 11, 89, 5 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,5 COMMENTS Completely multiplicative with a(p) = p if p is of the form 6k-1 and a(p) = 1 otherwise. Largest term of A259548 that divides n. LINKS FORMULA a(n) = n / A065331(n) / A248909(n) = A065330(n) / A248909(n). MATHEMATICA f[p_, e_] := If[Mod[p, 6] == 5, p^e, 1]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* after Amiram Eldar at A248909 *) PROG (PARI) a(n) = {my(f = factor(n)); for (i=1, #f~, if ((f[i, 1] + 1) % 6, f[i, 1] = 1); ); factorback(f); } \\ after Michel Marcus at A248909 CROSSREFS Equivalent sequence for distinct prime factors: A170825. Equivalent sequences for prime factors of other forms: A000265 (2k+1), A170818 (4k+1), A097706 (4k-1), A248909 (6k+1), A065330 (6k+/-1), A065331 (<= 3). Range of terms: A259548. Sequence in context: A046622 A170825 A140214 * A071020 A046601 A101025 Adjacent sequences:  A343427 A343428 A343429 * A343432 A343433 A343434 KEYWORD nonn,easy,mult AUTHOR Peter Munn, Apr 15 2021 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.

Last modified May 5 19:09 EDT 2021. Contains 343573 sequences. (Running on oeis4.)