OFFSET
1,1
FORMULA
EXAMPLE
a(1) = 2*4^2 - 1 = 31.
MATHEMATICA
Do[Print[Prime[n]*4^(Prime[n]) - 1], {n, 1, 20}] (* Stefan Steinerberger, Feb 15 2006 *)
# 4^#-1&/@Prime[Range[20]] (* Harvey P. Dale, Dec 06 2012 *)
PROG
(Magma) [NthPrime(n)*4^NthPrime(n) - 1: n in [1..20]]; // Vincenzo Librandi, Aug 27 2015
(PARI) vector(20, n, p=prime(n); p*4^p - 1) \\ Michel Marcus, Aug 27 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Parthasarathy Nambi, Dec 07 2004
EXTENSIONS
More terms from Stefan Steinerberger, Feb 15 2006
a(14)-a(15) from Vincenzo Librandi, Aug 27 2015
STATUS
approved