A023526 Greatest exponent in prime-power factorization of p(n)*p(n-1) + 1.

1, 1, 4, 2, 1, 4, 1, 4, 1, 2, 2, 2, 1, 2, 1, 2, 3, 4, 3, 1, 6, 3, 1, 2, 1, 1, 2, 1, 6, 1, 4, 1, 2, 2, 3, 4, 2, 3, 1, 2, 3, 4, 2, 12, 1, 4, 1, 1, 1, 4, 1, 3, 8, 2, 2, 3, 2, 6, 2, 1, 2, 3, 5, 1, 6, 1, 5, 2, 2, 4, 1, 3, 1, 2, 3, 1, 2, 1, 2, 1

Offset

1,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..2000

Mathematica

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

Crossrefs

Sequence in context: A236308 A105698 A105699 * A082901 A136619 A132708

Adjacent sequences: A023523 A023524 A023525 * A023527 A023528 A023529

Keyword

nonn

Author

Clark Kimberling

Status

approved