A262103 - OEIS

%I #26 Jul 25 2021 02:40:18

%S 55,505,1001,1221,2121,5041,5051,5501,10101,12001,15225,20301,21021,

%T 23501,24301,24341,30041,31031,32451,42241,50125,50321,101101,102421,

%U 105131,111111,113425,121001,121101,123041,123321,132305,150135,152021,201201,204445,212121,221001,222401,232401

%N Pseudoprimes to base 6, written in base 6.

%H Amiram Eldar, <a href="/A262103/b262103.txt">Table of n, a(n) for n = 1..10000</a>

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

%t base = 6; t = {}; n = 1;

%t While[Length[t] < 40, n++;

%t If[! PrimeQ[n] && PowerMod[base, n - 1, n] == 1,

%t   AppendTo[t, FromDigits@IntegerDigits[n, 6]]]]; t

%o (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

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

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

%K nonn,base

%O 1,1

%A _Abdul Gaffar Khan_, Sep 11 2015