OFFSET
1,1
COMMENTS
Contribution from Charles R Greathouse IV, Sep 12 2012: (Start)
Terms of A212374 which are not in this sequence: 5153, 18539, 20747, 49681, 51199, 51797, 55201, 70381, .... (End)
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[PrimePi[7200]]], ! MemberQ[PowerMod[Range[#], 23, #], Mod[2, #]] &] (* T. D. Noe, Sep 13 2012 *)
ok[p_]:=Reduce[Mod[x^23 - 2, p]==0, x, Integers]==False; Select[Prime[Range[25000]], ok] (* Vincenzo Librandi, Sep 13 2012 *)
PROG
(Magma) [p: p in PrimesUpTo(8000) | forall{x: x in ResidueClassRing(p) | x^23 ne 2}]; // Vincenzo Librandi, Aug 21 2012
(PARI) select(n->!ispower(Mod(2, n), 23), primes(1000)) \\ Charles R Greathouse IV, Sep 12 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Klaus Brockhaus, Jan 20 2001
STATUS
approved