OFFSET
1,1
COMMENTS
PROG
(PARI) isprimitivep(p, n) = {for (r=1, n-1, if (((2^r+1) % p) == 0, return (0)); ); return (1); }
lista(n) = {f = factor(2^n+1); hasprim = 0; for(i=1, #f~, if (isprimitivep(f[i, 1], n), hasprim = 1; print1((f[i, 1]-1)/n, ", "); ); ); if (! hasprim, print1(0, ", ")); } \\ Michel Marcus, Jul 16 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Marco Matosic, Sep 01 2004
STATUS
approved