|
|
A166479
|
|
Lesser of twin primes, written in base 6.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
FORMULA
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|