1,2

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

a(n) = A006530(A006882(n)). - Michel Marcus, Nov 08 2013

a = {}; Do[b = First[Last[FactorInteger[n!! ]]]; AppendTo[a, b], {n, 2, 100}]; a

FactorInteger[#][[-1, 1]]&/@(Range[80]!!) (* Harvey P. Dale, Feb 15 2014 *)

Cf. A010693.

Sequence in context: A284695 A081812 A331634 * A219964 A165500 A072505

Adjacent sequences: A139418 A139419 A139420 * A139422 A139423 A139424

nonn

Artur Jasinski, Apr 21 2008

approved