A262103 Pseudoprimes to base 6, written in base 6.

55, 505, 1001, 1221, 2121, 5041, 5051, 5501, 10101, 12001, 15225, 20301, 21021, 23501, 24301, 24341, 30041, 31031, 32451, 42241, 50125, 50321, 101101, 102421, 105131, 111111, 113425, 121001, 121101, 123041, 123321, 132305, 150135, 152021, 201201, 204445, 212121, 221001, 222401, 232401

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A007092(A005937(n)).

Mathematica

base = 6; t = {}; n = 1;
While[Length[t] < 40, n++;
If[! PrimeQ[n] && PowerMod[base, n - 1, n] == 1,
  AppendTo[t, FromDigits@IntegerDigits[n, 6]]]]; t

Prog

(PARI) lista(nn, b=6) = {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

Cf. A007092 (numbers in base 6), A005937 (pseudoprimes to base 6).

Cf. A258189, A262101, A262102, A262104, A262105, A262154.

Sequence in context: A166827 A266035 A241699 * A138053 A183320 A185028

Adjacent sequences: A262100 A262101 A262102 * A262104 A262105 A262106

Keyword

nonn,base

Author

Abdul Gaffar Khan, Sep 11 2015

Status

approved