OFFSET
1,1
COMMENTS
Numbers k such that k and k+1 are both in A060257. - Amiram Eldar, Oct 03 2021
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
q[n_] := Module[{p = Prime[n]}, MultiplicativeOrder[10, p] == p - 1]; Select[Range[360], q[#] && q[#+1] &] (* Amiram Eldar, Oct 03 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeff Burch, Mar 23 2001
EXTENSIONS
Data corrected by Amiram Eldar, Oct 03 2021
STATUS
approved