A166479 Lesser of twin primes, written in base 6.

3, 5, 15, 25, 45, 105, 135, 155, 245, 255, 345, 405, 455, 515, 525, 1015, 1035, 1125, 1145, 1235, 1335, 1535, 1555, 2045, 2225, 2345, 2435, 2505, 2545, 3015, 3425, 3445, 3455, 3545, 4025, 4415, 4435, 4505, 4525, 5015, 5155, 5405, 5525, 5545, 10005, 10035

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

Formula

a(n) = A007092(A001359(n)).

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

Cf. A001359, A007092.

Sequence in context: A146859 A146835 A146795 * A108814 A290296 A329662

Adjacent sequences: A166476 A166477 A166478 * A166480 A166481 A166482

Keyword

base,easy,nonn

Author

Jonathan Vos Post, Oct 14 2009

Extensions

Extended by Nathaniel Johnston, May 06 2011

Status

approved