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

Author

Abdul Gaffar Khan, Sep 11 2015

Keywords

• nonn
• base

Links

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

Crossrefs

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

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

Programs

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

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

Formula

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