OFFSET
1,2
COMMENTS
This is sequence D(p), p = 5, where the Doudna sequence A005940 = D(2).
LINKS
MATHEMATICA
p = 5; nn = 125; c[_] = False;
Do[Set[{m, k}, {1, n - p^Floor[Log[p, n]]}];
If[k == 0,
Set[{a[n], c[n]}, {n, True}],
While[Set[t, Prime[m] a[k]]; Or[m == i, c[t]], m++];
Set[{a[n], c[t]}, {t, True}]], {n, nn}];
Array[a, nn]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Sep 16 2023
STATUS
approved