OFFSET
1,38
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..10000
PROG
(PARI) forcomposite(c=1, 100, my(i=0); forcomposite(d=1, c-1, if(Mod(c, d)^(d-1)==1 && Mod(d, c)^(c-1)==1, i++)); print1(i, ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Mar 19 2016
STATUS
approved