A023570 Greatest exponent in prime-power factorization of p(n)-3.

0, 0, 1, 2, 3, 1, 1, 4, 2, 1, 2, 1, 1, 3, 2, 2, 3, 1, 6, 2, 1, 2, 4, 1, 1, 2, 2, 3, 1, 1, 2, 7, 1, 3, 1, 2, 1, 5, 2, 1, 4, 1, 2, 1, 1, 2, 4, 2, 5, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 1, 3, 1, 4, 2, 1, 1, 3, 1, 3, 1, 2, 2, 2, 1, 3, 2, 1, 1, 1, 1, 5, 1, 2, 1, 2, 3, 1, 1, 1, 2, 4, 2, 2, 3, 4, 3, 1, 1, 3

Offset

1,4

Links

Table of n, a(n) for n=1..99.

Mathematica

Join[{0, 0}, Table[Max[FactorInteger[p-3][[All, 2]]], {p, Prime[Range[3, 100]]}]] (* Harvey P. Dale, Mar 11 2019 *)

Crossrefs

Sequence in context: A244665 A194518 A023572 * A256989 A275214 A319846

Adjacent sequences: A023567 A023568 A023569 * A023571 A023572 A023573

Keyword

nonn

Author

Clark Kimberling

Status

approved