OFFSET
1,4
COMMENTS
This sequence tends to infinity as n tends to infinity.
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
Rémy Sigrist, Illustration of the first terms
PROG
(PARI) a = vector(100); for (n=1, #a, if (n>1, a[n] = 1 + a[n - primepi(factor(n)[1, 1])]); print1 (a[n] ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Rémy Sigrist, Apr 09 2017
STATUS
approved