OFFSET
1,6
COMMENTS
By convention, a(1) = 1, and a(p) = 0 for p prime.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..100000
EXAMPLE
The non-singleton runs of the nontrivial divisors of 1260 are: {2,3,4,5,6,7} {9,10} {14,15} {20,21} {35,36}, so a(1260) = 6.
MATHEMATICA
Table[Switch[n, 1, 1, _?PrimeQ, 0, _, Max@@Length/@Split[DeleteCases[Divisors[n], 1|n], #2==#1+1&]], {n, 100}]
PROG
(PARI) A328458(n) = if(1==n, n, my(rl=0, pd=0, m=0); fordiv(n, d, if(1<d && d<n, if(d>(1+pd), m = max(m, rl); rl=0); pd=d; rl++)); max(m, rl)); \\ Antti Karttunen, Feb 23 2023
CROSSREFS
Positions of first appearances are A328459.
Positions of 0's and 1's are A088723.
The version that looks at all divisors is A055874.
The number of successive pairs of divisors > 1 of n is A088722(n).
The Heinz number of the multiset of run-lengths of divisors of n is A328166(n).
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 17 2019
EXTENSIONS
Data section extended up to a(105) by Antti Karttunen, Feb 23 2023
STATUS
approved