OFFSET
1,3
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
With[{nn=50}, Riffle[Differences[Prime[Range[nn]]], Differences[ Prime[ Range[ nn]], 2]]] (* Harvey P. Dale, Nov 01 2015 *)
PROG
(Haskell)
import Data.List (transpose)
a262138 n = a262138_list !! (n-1)
a262138_list = concat $ transpose [a001223_list, a036263_list]
CROSSREFS
KEYWORD
sign
AUTHOR
Reinhard Zumkeller, Sep 12 2015
STATUS
approved