|
%I #13 Dec 21 2022 16:16:58
%S 60,66,132,212,242,246,290,296,312,326,380,384,446,516,524,554,654,
%T 704,740,782,834,1026,1086,1142,1154,1172,1182,1214,1424,1430,1464,
%U 1482,1494,1500,1524,1604,1682,1686,1752,1794,1796,1844,1854,1940,1952,1980,2000,2010
%N Numbers n such that n^7-7 is prime.
%C Note that all the numbers in this sequence are even.
%e 60^7-7 = 2799359999993 is prime. Thus, 60 is a member of this sequence.
%t Select[Range[2500],PrimeQ[#^7-7]&] (* _Harvey P. Dale_, Dec 21 2022 *)
%o (Python)
%o import sympy
%o from sympy import isprime
%o {print(n) for n in range(10**4) if isprime(n**7-7)}
%Y Cf. A028870, A153974, A239344, A239413, A239414.
%K nonn
%O 1,1
%A _Derek Orr_, Mar 17 2014
|
