OFFSET
1,6
COMMENTS
It appears that a(n) = 1 exactly when s(n) is 4, 9, or a prime >3. - Michael De Vlieger, Jun 21 2024
LINKS
Scott R. Shannon, Table of n, a(n) for n = 1..10000
Michael De Vlieger, Log log scatterplot of a(n), n = 1..2^14.
EXAMPLE
MATHEMATICA
s = Import["https://oeis.org/A373390/b373390.txt", "Data"][[All, -1]] (* set s to contain terms of A373390 *);
Table[Function[{m, w}, Count[w, _?(! CoprimeQ[#, m[[1]]] &)]] @@ TakeDrop[#, -1] &@ s[[;; n]], {n, 120}] (* Michael De Vlieger, Jun 21 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Scott R. Shannon, Jun 20 2024
STATUS
approved