A023518 Greatest exponent in prime-power factorization of prime(n)*prime(n-1) - 1.

0, 1, 1, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 2, 1, 3, 2, 1, 2, 3, 2, 2, 2, 2, 1, 1, 1, 3, 1, 2, 3, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 3, 4, 1, 2, 3, 6, 2, 3

Offset

1,5

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Join[{0}, Max[Transpose[FactorInteger[#]][[2]]]&/@(Times@@@Partition[ Prime[ Range[80]], 2, 1]-1)] (* Harvey P. Dale, Jun 19 2013 *)

Crossrefs

Sequence in context: A023582 A306717 A195969 * A326194 A331251 A309858

Adjacent sequences: A023515 A023516 A023517 * A023519 A023520 A023521

Keyword

nonn

Author

Clark Kimberling

Status

approved