OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
BaseForm[Select[Range[4096], Not[PrimeQ[#]] && PowerMod[4, # - 1, #] == 1 &], 4]
PROG
(PARI) lista(nn, b=4) = {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
STATUS
approved