login
A023577
Greatest exponent in prime-power factorization of prime(n)+3.
1
1, 1, 3, 1, 1, 4, 2, 1, 1, 5, 1, 3, 2, 1, 2, 3, 1, 6, 1, 1, 2, 1, 1, 2, 2, 3, 1, 1, 4, 2, 1, 1, 2, 1, 3, 1, 5, 1, 1, 4, 1, 3, 1, 2, 3, 1, 1, 1, 1, 3, 2, 2, 2, 1, 2, 1, 4, 1, 3, 2, 1, 3, 1, 1, 2, 6, 1, 2, 2, 5, 2, 1, 1, 3, 1, 1, 3, 4, 2, 2, 1, 3, 1, 2, 1, 1, 2, 2, 4, 1, 1, 1, 2, 1, 1, 1, 9, 2, 1
OFFSET
1,3
LINKS
FORMULA
a(n) = A051903(3+A000040(n)). - Robert Israel, Mar 18 2019
MAPLE
f:= proc(n) max(map(t -> t[2], ifactors(ithprime(n)+3)[2])) end proc:
map(f, [$1..100]); # Robert Israel, Mar 18 2019
MATHEMATICA
a[n_] := Max[FactorInteger[Prime[n] + 3][[;; , 2]]]; Array[a, 100] (* Amiram Eldar, Sep 09 2024 *)
PROG
(PARI) a(n) = vecmax(factor(prime(n) + 3)[, 2]); \\ Amiram Eldar, Sep 09 2024
CROSSREFS
Sequence in context: A264490 A299794 A023579 * A188139 A134557 A290342
KEYWORD
nonn
STATUS
approved