OFFSET
2,1
MAPLE
A180511:= n-> map (p-> (4^(p-1)-1)/p, ithprime(n)):
seq (A180511(n), n=2..20); # Peter Luschny, Jan 21 2010
MATHEMATICA
Table[(4^(Prime[n] - 1) - 1)/Prime[n], {n, 2, 20}] (* Alonso del Arte, Jan 20 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jani Melik, Jan 20 2011
STATUS
approved