|
|
A179188
|
|
Numbers n such that phi(n) = phi(n+6), with Euler's totient function phi=A000010.
|
|
14
|
|
|
24, 34, 36, 39, 43, 44, 57, 72, 78, 82, 84, 93, 96, 108, 111, 146, 178, 201, 216, 222, 225, 226, 228, 306, 327, 364, 366, 381, 399, 417, 432, 438, 442, 466, 471, 482, 516, 527, 540, 543, 562, 576, 597, 610, 626, 633, 648, 706, 714, 732, 738, 802, 818, 866, 898, 912, 921, 924, 942, 948, 972, 1011
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There are 1385502728 terms under 10^12. - Jud McCranie, Feb 13 2012
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Flatten[Position[Partition[EulerPhi[Range[1200]], 7, 1], _?(#[[1]] == #[[7]]&), {1}, Heads->False]] (* Harvey P. Dale, Jan 30 2016 *)
Select[Range[1000], EulerPhi[#] == EulerPhi[# + 6] &] (* Vincenzo Librandi, Sep 08 2016 *)
|
|
PROG
|
(PARI) {op=vector(N=6); for( n=1, 1e4, if( op[n%N+1]+0==op[n%N+1]=eulerphi(n), print1(n-N, ", ")))}
(Magma) [n: n in [1..1000] | EulerPhi(n) eq EulerPhi(n+6)]; // Vincenzo Librandi, Sep 08 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|