A221980 Number of primes of the form (x+1)^7 - x^7 with x <= 10^n.
1, 6, 24, 161, 1094, 8283, 66790
Offset: 0
Programs
-
Mathematica
Table[Count[#[[2]]-#[[1]]&/@Partition[Range[10^n+1]^7,2,1],?PrimeQ],{n,0,6}] (* _Harvey P. Dale, Sep 17 2019 *)
-
PARI
a(n) = {nb = 0; for (i = 1, 10^n, if (isprime((i+1)^7-i^7), nb++);); nb;} \\ Michel Marcus, Sep 18 2013
Comments