login
A245523
Prime numbers whose indices correspond to A245522.
3
5, 31, 47, 47, 127, 167, 2549, 10501, 10501, 10501, 18503, 18503, 171253, 340519, 642049, 642049, 2545453, 2545453, 21826159, 52420561, 71298761, 71298761, 186534311, 989883217, 989883217, 989883217, 10825610021, 13490518247, 13490518247, 13490518247, 80660787143, 80660787143, 143251927909
OFFSET
1,1
COMMENTS
Similar to A133590, except the comparison is done in binary.
FORMULA
a(n) = A000040(A245522(n)).
MATHEMATICA
f[n_] := Module[{p = Prime[n]}, m = IntegerExponent[p - n, 2]; If[n < 2^m, Length[IntegerDigits[n, 2]], m]]; fm = 0; s = {}; Do[f1 = f[n]; If[f1 > fm, s = Join[s, Table[Prime[n], {f1 - fm}]]; fm = f1], {n, 1, 10^6}]; s (* Amiram Eldar, May 13 2019 *)
KEYWORD
nonn,base
AUTHOR
Chai Wah Wu, Jul 24 2014
EXTENSIONS
a(23)-a(33) from Amiram Eldar, May 13 2019
STATUS
approved