OFFSET
1,1
COMMENTS
Composites not in A272600.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) forcomposite(n=4, 10^3, my(q=1, f=factor(n-1)[, 1]); for(j=1, #f, if((n-1)%(f[j]-1), q=0; break)); if(!q, print1(n, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Joerg Arndt, May 16 2016
STATUS
approved