A164572 Numbers k such that k and k+4 are both prime powers.
1, 3, 4, 5, 7, 9, 13, 19, 23, 25, 27, 37, 43, 49, 67, 79, 97, 103, 109, 121, 127, 163, 169, 193, 223, 229, 239, 277, 289, 307, 313, 343, 349, 379, 397, 439, 457, 463, 487, 499, 613, 643, 673, 729, 739, 757, 769, 823, 853, 859, 877, 883, 907, 937, 967, 1009, 1087
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1256 from Daniel Forgues)
Crossrefs
Programs
-
Mathematica
Select[Range[1000], PrimeNu[#] < 2 && PrimeNu[# + 4] < 2 &] (* Amiram Eldar, Oct 01 2020 *)
-
PARI
is(n)=if(n==1,return(1)); isprimepower(n) && isprimepower(n+4) \\ Charles R Greathouse IV, Apr 24 2015
Comments