A387362 Cyclic numbers k such that k+2 is also a cyclic number.
1, 3, 5, 11, 13, 15, 17, 29, 31, 33, 35, 41, 51, 59, 65, 67, 69, 71, 77, 83, 85, 87, 89, 95, 101, 107, 113, 131, 137, 139, 141, 143, 149, 157, 159, 161, 177, 179, 185, 191, 197, 209, 211, 213, 215, 221, 227, 233, 239, 247, 249, 255, 257, 263, 265, 267, 269, 281, 293
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Joel E. Cohen, Conjectures about Primes and Cyclic Numbers, arXiv:2508.08335 [math.NT], 2025.
- Carl Pomerance, Patterns for cyclic numbers, 2025.
Programs
-
Mathematica
cyclicQ[n_] := cyclicQ[n] = CoprimeQ[n, EulerPhi[n]]; Select[Range[1, 300, 2], And @@ cyclicQ[{#, # + 2}] &]
-
PARI
iscyclic(k) = gcd(k, eulerphi(k)) == 1; isok(k) = k % 2 && iscyclic(k) && iscyclic(k+2);
Comments