A056772 Numbers k such that phi(k+4) = phi(k) + 4, where phi(k) = A000010(k) is Euler's totient function.
3, 7, 12, 13, 18, 19, 24, 28, 36, 37, 40, 43, 66, 67, 79, 88, 97, 103, 109, 124, 127, 163, 184, 193, 223, 229, 232, 277, 307, 313, 328, 349, 379, 397, 424, 439, 457, 463, 487, 499, 508, 613, 643, 664, 673, 712, 739, 757, 769, 823, 853, 859, 877, 883, 904, 907
Offset: 1
Keywords
Examples
For k = 1048: phi(1048) = 520, phi(1048+4) = 524.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Seiichi Manyama)
Crossrefs
Programs
-
Magma
[n: n in [1..1000] | EulerPhi(n+4) eq EulerPhi(n)+4]; // Vincenzo Librandi, Sep 11 2015
-
Mathematica
Select[Range@1000, EulerPhi@(# + 4)== EulerPhi[#] + 4 &] (* Vincenzo Librandi, Sep 11 2015 *) Position[Partition[EulerPhi[Range[1000]],5,1],?(#[[1]]+4==#[[5]]&),1, Heads-> False]//Flatten (* _Harvey P. Dale, Dec 18 2019 *)
-
PARI
isok(n) = eulerphi(n+4) == eulerphi(n) + 4; \\ Michel Marcus, Sep 11 2015
Comments