A221978 Number of primes of the form (x+1)^7 - x^7 having n digits.
0, 0, 1, 0, 1, 1, 3, 1, 1, 2, 4, 4, 7, 9, 12, 14, 29, 31, 45, 62, 71, 117, 175, 231, 331, 454, 634, 948, 1250, 1770, 2506, 3566, 5088, 7192, 10261, 14592, 21168, 30275, 43099, 61336, 87770, 126195, 180957, 258657, 371653, 534391, 767164, 1103259, 1583584, 2276179
Offset: 1
Links
- Vladimir Pletser, Table of n, a(n) for n = 1..50
Programs
-
Mathematica
nn = 30; t = Table[0, {nn}]; n = 0; While[n++; p = (n + 1)^7 - n^7; p < 10^nn, If[PrimeQ[p], m = Ceiling[Log[10, p]]; t[[m]]++]]; t (* T. D. Noe, Feb 04 2013 *)
Comments