|
|
A217139
|
|
Numbers n such that phi(n) = phi(n+12), with Euler's totient function phi = A000010.
|
|
12
|
|
|
48, 68, 72, 78, 86, 88, 114, 143, 144, 156, 157, 164, 168, 186, 192, 203, 216, 222, 247, 273, 292, 356, 402, 432, 444, 450, 452, 456, 612, 654, 728, 732, 762, 798, 834, 864, 876, 884, 932, 942, 964, 1032, 1054, 1080, 1086, 1124, 1147, 1152, 1194, 1209, 1220
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Most of numbers n in this sequence are divisible by 2, and it appears that n/2 belongs to A179188. The other ones are listed in sequence A217141.
Proof of the comment: If n is even and not a multiple of 4 then phi(n)=phi(n/2). If n is a multiple of 4 then phi(n)=2 * phi(n/2). So when k is a multiple of 4 and phi(n)=phi(n+k), then phi(n/2)=phi(n/2+k/2). QED. This also applies to A179186, A179202. - Jud McCranie, Dec 30 2012
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[1, 5000], EulerPhi[#] == EulerPhi[# + 12] &] (* Vincenzo Librandi, Jun 24 2014 *)
|
|
PROG
|
(PARI) {op=vector(N=12); for( n=1, 1e4, if( op[n%N+1]+0==op[n%N+1]=eulerphi(n), print1(n-N, ", ")))}
(Magma) [n: n in [1..3000] | EulerPhi(n) eq EulerPhi(n+12)]; // Vincenzo Librandi, Sep 08 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|