1,2
For the corresponding primes p see A088553.
Table of n, a(n) for n=1..16.
Select[Range[4200], Or@@PrimeQ[(3^#+{1, -1})/2]&] (* Harvey P. Dale, Mar 05 2013 *)
Sequence in context: A200088 A004783 A031149 * A137495 A099779 A000690
Adjacent sequences: A096720 A096721 A096722 * A096724 A096725 A096726
nonn
Lekraj Beedassy, Jul 05 2004
More terms from Ray Chandler, Jul 09 2004
approved