OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
base = 3; t = {}; n = 1;
While[Length[t] < 40, n++;
If[! PrimeQ[n] && PowerMod[base, n - 1, n] == 1,
AppendTo[t, FromDigits@IntegerDigits[n, 3]]]]; t
PROG
(PARI) lista(nn, b=3) = {for (n=1, nn, if (Mod(b, n)^(n-1)==1 && !ispseudoprime(n) && n>1, print1(subst(Pol(digits(n, b), x), x, 10), ", "); ); ); } \\ Michel Marcus, Sep 30 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Abdul Gaffar Khan, Sep 11 2015
EXTENSIONS
a(25) corrected by Georg Fischer, Dec 18 2020
STATUS
approved