A213337 Odd composite numbers k that divide the imaginary part of (1+2i)^A201629(k).
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
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
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 &]
Comments