OFFSET
1
LINKS
PROG
(PARI)
firstdiffs0forward(vec) = { my(v=vector(#vec)); for(n=1, #v, v[n] = vec[n]-if(#v==n, 0, vec[1+n])); (v); };
A353518(n) = if(1==n, 1, my(f=factor(n), len=#f~); if(primepi(f[len, 1])!=len, return(0), my(diffs=firstdiffs0forward(f[, 2])); for(i=1, #diffs-1, if(diffs[i+1]>diffs[i], return(0))); (1)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 28 2022
STATUS
approved