|
%I #8 Jan 17 2019 16:44:40
%S 7,13,17,19,23,29,31,37,37,41,59,83,89,97,97,101,101,107,149,157,167,
%T 167,179,197,199,211,211,223,241,257,269,283,283,307,311,313,331,373,
%U 401,433,439,439,443,443,463,503,557,569,587,599,617,619,619,641,691
%N Primes of the form (p(n)-2*(n-1))/7, where p(n)=n-th prime.
%H Harvey P. Dale, <a href="/A144426/b144426.txt">Table of n, a(n) for n = 1..1000</a>
%e If n=25, then (p(25)-2*(25-1))/7=(97-48)/7=7=a(1).
%e If n=39, then (p(39)-2*(39-1))/7=(167-76)/7=13=a(2).
%e If n=47, then (p(47)-2*(47-1))/7=(211-92)/7=17=a(3).
%e If n=51, then (p(51)-2*(51-1))/7=(233-100)/7=19=a(4).
%e If n=59, then (p(59)-2*(59-1))/7=(277-116)/7=23=a(5).
%e If n=68, then (p(68)-2*(68-1))/7=(337-134)/7=29=a(6), etc.
%t Select[(#[[2]]-2#[[1]])/7&/@Table[{n-1,Prime[n]},{n,1000}],PrimeQ] (* _Harvey P. Dale_, Jan 17 2019 *)
%Y Cf. A000040.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Oct 08 2008
%E Corrected (101, 167 and 211 duplicated, 107 inserted) and extended by _R. J. Mathar_, Apr 13 2010
|
