OFFSET
1,1
COMMENTS
Initial values are here odd numbers. Comparing with the case of primorial-iv [=A098202], the lengths are here significantly smaller. Cause of this is unknown, albeit informally "understood": lack of powers of 2 in lists because parity is invariant during this iteration. See also lists for A098200 and A098201.
EXAMPLE
n=7: list={255255,163095,77815,16663,895,183,63,27,9,3,1,0},a[7]=12, while comparable length for 510510 is A098202[7]=43.
MATHEMATICA
g[x_] :=x-EulerPhi[x]; f[x_] :=Length[FixedPointList[g, x]]-1; q[x_] :=Apply[Times, Table[Prime[j], {j, 1, x}]]; t=Table[f[q[w]/2], {w, 1, 37}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 27 2004
STATUS
approved