|
%I #9 Mar 16 2016 00:19:45
%S 5,10,15,19,23,25,29,31,35,37,37,41,41,43,47,49,49,49,53,53,55,59,59,
%T 61,61,59,61,65,67,71,73,65,67,67,71,67,71,71,71,73,73,73,77,73,77,79,
%U 83,77,71,73,77,79,79,83,79,79,79,79,83,83,85,89,85,77,79,83,85,77,77,73,77
%N 6n - A008578(n).
%C Sequence items become negative at index 191, since the prime numbers A008578 grow faster than linearly.
%H Harvey P. Dale, <a href="/A158635/b158635.txt">Table of n, a(n) for n = 1..1000</a>
%t Join[{5},Table[6n-Prime[n-1],{n,2,80}]] (* _Harvey P. Dale_, Nov 18 2012 *)
%o (PARI) a(n)=if(n>1,6*n-prime(n-1),5) \\ _Charles R Greathouse IV_, Mar 16 2016
%K sign,less
%O 1,1
%A _Paul Curtz_, Mar 23 2009
%E Edited, offset changed by _R. J. Mathar_, Apr 04 2009
%E Comment clarified and modified by _Harvey P. Dale_, Nov 18 2012
|
