OFFSET
1,1
COMMENTS
a(33) > 4 * 10^5. - Lucas A. Brown, Nov 26 2020
MATHEMATICA
Flatten[Position[Partition[Floor[(3/2)^Range[51200]], 2, 1], _?(PrimeQ[ #[[2]] - #[[1]]]&), 1, Heads->False]]+1 (* Harvey P. Dale, May 17 2021 *)
PROG
(PFGW & SCRIPT)
SCRIPT
DIM k, 1
DIM q
OPENFILEOUT myf, a(n).txt
LABEL loop1
SET k, k+1
SET q, 3^k/2^k-3^(k-1)/2^(k-1)
PRP q
IF ISPRP THEN GOTO a
GOTO loop1
LABEL a
WRITE myf, k
GOTO loop1
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
Pierre CAMI, Jun 07 2014
STATUS
approved