login
A139108
Bisection of A139102.
1
2, 37, 2397, 153437, 157119967, 40222711647, 2574253545437, 2636035630527967, 674825121415159677, 691020924329123509751, 176901356628255618496351, 181146989187333753340263903, 741978067711319053681720948727
OFFSET
1,1
MAPLE
A139101 := proc(n) option remember ; local a, p; if n = 1 then RETURN(1); else a := 10*A139101(n-1) ; for p from ithprime(n-1)+1 to ithprime(n)-1 do a := 10*a+1 ; od: fi ; RETURN(a) ; end: bin2dec := proc(n) local nshft ; nshft := convert(n, base, 10) ; add(op(i, nshft)*2^(i-1), i=1..nops(nshft) ) ; end: A139102 := proc(n) bin2dec(A139101(n)) ; end: A139108 := proc(n) A139102(2*n) ; end: seq(A139108(n), n=1..35) ; # R. J. Mathar, Apr 25 2008
CROSSREFS
Cf. A139102.
Sequence in context: A058245 A257995 A234971 * A165697 A320994 A083189
KEYWORD
nonn
AUTHOR
Omar E. Pol, Apr 08 2008
EXTENSIONS
More terms from R. J. Mathar, Apr 25 2008
STATUS
approved