OFFSET
1,2
COMMENTS
This is sequence D(p), p = 7, where the Doudna sequence A005940 is D(2).
LINKS
MATHEMATICA
p = 7; nn = 343; 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