|
|
A294717
|
|
Numbers k such that 2^((k-1)/3) == 1 (mod k) and (2*k-1)*(2^((k-1)/6)) == 1 (mod k).
|
|
7
|
|
|
1, 43, 109, 157, 229, 277, 283, 307, 397, 499, 643, 691, 733, 739, 811, 997, 1021, 1051, 1069, 1093, 1459, 1579, 1597, 1627, 1699, 1723, 1789, 1933, 2179, 2203, 2251, 2341, 2347, 2731, 2749, 2917, 2971, 3061, 3163, 3181, 3229, 3259, 3277, 3331, 3373, 3541, 4027
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Most of the elements of this sequence are prime. The "pseudoprimes" of these sequence are part of A244626.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[1, 6001, 6], # == 1 || PowerMod[2, (#-1)/3, #] == 1 && Mod[-PowerMod[2, (#-1)/6, #], #] == 1&] (* Jean-François Alcover, Nov 18 2018 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|