OFFSET
1,1
COMMENTS
Equivalently, a(n) = 1 iff A061395(n+1) > A061395(n), otherwise a(n) = 0. - Giovanni Teofilatto, Jan 03 2008
LINKS
FORMULA
MATHEMATICA
Join[{1}, Table[If[PrimePi[FactorInteger[n + 1][[ -1, 1]]] > PrimePi[FactorInteger[n][[ -1, 1]]], 1, 0], {n, 2, 90}]] (* Stefan Steinerberger, Jan 06 2008 *)
If[#[[1]]<#[[2]], 1, 0]&/@Partition[FactorInteger[#][[-1, 1]]&/@Range[120], 2, 1] (* Harvey P. Dale, Nov 19 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 02 2003
EXTENSIONS
Edited by N. J. A. Sloane, Jul 01 2008, at the suggestion of R. J. Mathar
STATUS
approved