|
%I #12 May 16 2020 14:57:34
%S 1,13,321,1337,21797,87321,1398013,89478345,357913781,22906492017,
%T 366503875645,1466015503393,23456248058853,1501199875789697,
%U 96076792050570001,384307168202281705,24595658764946068073
%N a(n) = (2^p - p^2 - 1)/6 where p = prime(n).
%H Harvey P. Dale, <a href="/A166743/b166743.txt">Table of n, a(n) for n = 3..468</a>
%F a(n) = (A034785(n) - A066872(n))/6. - _R. J. Mathar_, Oct 25 2009
%p A166743 := proc(n) p := ithprime(n) ; (2^p-p^2-1)/6 ; end: seq(A166743(n),n=3..20) ; # _R. J. Mathar_, Oct 25 2009
%t Table[(2^p-p^2-1)/6,{p,Prime[Range[3,20]]}] (* _Harvey P. Dale_, May 16 2020 *)
%Y Cf. A034785, A066872.
%K nonn
%O 3,2
%A Tanin (Mirza Sabbir Hossain Beg) (mirzasabbirhossainbeg(AT)yahoo.com), Oct 21 2009
%E Missing exponentiation signs inserted in the definition by _R. J. Mathar_, Oct 25 2009
%E Corrected by _D. S. McNeil_, Aug 20 2010
|
