OFFSET
1,1
COMMENTS
All but the first value is of the form 6n-1, hence in base 6 end with the digit 5.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
A001359 := proc(n) option remember: local p: if(n=1)then return 3: fi: p:=procname(n-1): do p:=nextprime(p): if(isprime(p+2))then return p: fi: od: end: A166479 := proc(n) local l: l:=convert(A001359(n), base, 6): return op(convert(l, base, 10, 10^nops(l))): end: seq(A166479(n), n=1..60); # Nathaniel Johnston, May 06 2011
MATHEMATICA
FromDigits[IntegerDigits[#, 6]]&/@Transpose[Select[Partition[ Prime[ Range[ 300]], 2, 1], #[[2]]-#[[1]]==2&]][[1]] (* Harvey P. Dale, Aug 19 2015 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Oct 14 2009
EXTENSIONS
Extended by Nathaniel Johnston, May 06 2011
STATUS
approved