OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
m = 2; t = {}; While[m < bound, m = m + 1; p = Prime[m]; dp = Divisors[p - 1]; L = Length[dp]; j = 1; While[j < L - 1, j = j + 1; b = MultiplicativeOrder[dp[[j]], p]; If[b == p - 1, j = L + 1, ] ]; If[j == L + 1, , t = {t, p}] ]; t = Flatten[t]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Emmanuel Vantieghem, Jan 30 2010
STATUS
approved