cp's OEIS Frontend

A179187 Numbers n such that phi(n)=phi(n+5), with Euler's totient function phi=A000010.

%I A179187 #31 Sep 08 2022 08:45:54
%S A179187 5,9,15,21,15556,21016,25930,25935,27027,36304,46683,129675,266128,
%T A179187 307923,329175,430348,503139,636400,684411,812170,1014778,1252713,
%U A179187 1777545,1871788,1892452,1911987,2622160,2629930,2731360,2947035,3397480,4200100,5451537
%N A179187 Numbers n such that phi(n)=phi(n+5), with Euler's totient function phi=A000010.
%C A179187 There are only 43 terms below 10^7, and 1843 terms below 10^12. [_Jud McCranie_, Feb 13 2012]
%H A179187 Jud McCranie, <a href="/A179187/b179187.txt">Table of n, a(n) for n = 1..1843</a> (terms < 10^12)
%H A179187 F. Firoozbakht, <a href="http://www.primepuzzles.net/puzzles/puzz_466.htm">Puzzle 466. phi(n-1)=phi(n)=phi(n+1)</a>, in C. Rivera's Primepuzzles.
%H A179187 Kevin Ford, <a href="https://arxiv.org/abs/2002.12155">Solutions of phi(n)=phi(n+k) and sigma(n)=sigma(n+k)</a>, arXiv:2002.12155 [math.NT], 2020.
%F A179187 A000010(a(n)) = A000010(a(n)+5).
%t A179187 Select[Range[5000000], EulerPhi[#] == EulerPhi[# + 5] &] (* _Vincenzo Librandi_, Sep 08 2016 *)
%t A179187 Position[Partition[EulerPhi[Range[55*10^5]],6,1],_?(#[[1]] == #[[6]]&), {1}, Heads->False]//Flatten (* _Harvey P. Dale_, Nov 10 2016 *)
%o A179187 (PARI) {op=vector(N=5); for( n=1,1e7,if( op[n%N+1]+0==op[n%N+1]=eulerphi(n),print1(n-N,",")))}
%o A179187 (Magma) [n: n in [1..5000000] | EulerPhi(n) eq EulerPhi(n+5)]; // _Vincenzo Librandi_, Sep 08 2016
%Y A179187 Cf. A000010, A001274, A001494, A179186, A007015.
%K A179187 nonn
%O A179187 1,1
%A A179187 _M. F. Hasler_, Jan 05 2011