OFFSET
1,2
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..1000
FORMULA
MAPLE
seq(6^i-prevprime(6^i), i=1..100);
MATHEMATICA
pp[n_]:=Module[{n6=6^n}, n6-NextPrime[n6, -1]]; Array[pp, 70] (* Harvey P. Dale, May 04 2011 *)
#-NextPrime[#, -1]&/@(6^Range[70]) (* Harvey P. Dale, May 28 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
James Kilfiger (mapdn(AT)csv.warwick.ac.uk)
STATUS
approved