|
|
A213337
|
|
Odd composite numbers k that divide the imaginary part of (1+2i)^A201629(k).
|
|
2
|
|
|
143, 399, 527, 779, 1501, 1679, 2407, 2627, 2703, 2737, 3239, 3289, 3599, 3827, 4031, 4033, 4879, 4991, 5183, 5291, 5719, 5921, 6479, 6601, 6721, 7739, 8321, 8687, 8903, 9361, 9503, 10153, 10439, 11537, 11663
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
t[n_]:=Which[Mod[n, 4]==3, n+1, Mod[n, 4]==1, n-1, True, n]; Select[1+ Range[1000], Mod[#, 2]==1&&! PrimeQ[#] && Im[PowerMod[1 + 2I, t[#], #]] == 0 &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|