|
|
A193167
|
|
Composite numbers n such that phi(n) divides 4*(n-1).
|
|
0
|
|
|
4, 6, 8, 10, 12, 15, 28, 66, 91, 561, 946, 6601, 8911, 6840001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
t={}; Do[If[PrimeQ[n]==False && IntegerQ[(n-1)*4/EulerPhi[n]], Print[n]; AppendTo[t, n]], {n, 2, 10^5}]; t
Select[Range[7*10^6], CompositeQ[#]&&Divisible[4(#-1), EulerPhi[#]]&] (* Harvey P. Dale, Jul 07 2016 *)
|
|
PROG
|
(PARI) p=1; forprime(q=2, 1e9, for(n=p+1, q-1, if((4*n-4)%eulerphi(n)==0, print1(n", "))); p=q) \\ Charles R Greathouse IV, Jul 31 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|