A262105 Pseudoprimes to base 8, written in base 8.
11, 25, 55, 77, 101, 151, 165, 205, 231, 347, 421, 525, 741, 777, 1061, 1111, 1205, 1213, 1535, 1665, 1751, 2121, 2401, 2525, 2553, 2611, 3005, 3161, 3175, 3301, 3371, 3561, 3777, 4171, 4641, 4705, 5215, 5405, 6111, 6143
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
base = 8; t = {}; n = 1; While[Length[t] < 40, n++; If[! PrimeQ[n] && PowerMod[base, n - 1, n] == 1, AppendTo[t, FromDigits@ IntegerDigits[n, 8]]]]; t