OFFSET
1,1
COMMENTS
Numbers k such that A079748(k-1) > 1.
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
EXAMPLE
k=25: 25-1 = 24 = 3*2^3, 25 = 5^2 and 25+1 = 26 = 13*2, therefore 25 is a term (3 < 5 < 13).
MATHEMATICA
gpf[n_] := FactorInteger[n][[-1, 1]]; ind = Position[Differences[Array[gpf, 350]], _?(# > 0 &)] // Flatten; ind[[Position[Differences[ind], 1] // Flatten]] + 1 (* Amiram Eldar, Jun 05 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 10 2003
STATUS
approved