A164574 Numbers k such that k and k+6 are both prime powers.
1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 25, 31, 37, 41, 43, 47, 53, 61, 67, 73, 83, 97, 101, 103, 107, 121, 125, 131, 151, 157, 163, 167, 173, 191, 193, 223, 227, 233, 251, 257, 263, 271, 277, 283, 307, 311, 331, 337, 343, 347, 353, 361, 367, 373, 383, 433, 443, 457
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..2492 from Daniel Forgues)
Crossrefs
Programs
-
Mathematica
Join[{1},Select[Range[500],AllTrue[{#,#+6},PrimePowerQ]&]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 30 2018 *)
-
PARI
is(n)=if(n<4,return(n>0)); isprimepower(n) && isprimepower(n+6) \\ Charles R Greathouse IV, Apr 24 2015
Extensions
Edited by Daniel Forgues, Aug 17 2009
Comments