A072582 a(n) = A000040(A072579(n)).

2, 17, 41, 101, 157, 179, 181, 197, 227, 229, 271, 277, 293, 347, 349, 373, 397, 401, 449, 563, 571, 587, 601, 619, 647, 661, 757, 797, 811, 821, 829, 853, 929, 947, 953, 971, 977, 997, 1039, 1103, 1129, 1213, 1231, 1237, 1303, 1307, 1409, 1433, 1459

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

A023416(a(n)) = A000120(A072579(n)) = A035103(n).

Example

In binary representation 70 = '1000110' has three 1's and A000040(70) = 349 = '101011101' has three 1's: therefore 349 is a term.

Mathematica

With[{m = 300}, Select[Transpose[{Range[m], Prime[Range[m]]}], DigitCount[First[#], 2, 1] == DigitCount[Last[#], 2, 0] &]][[;; , 2]] (* Amiram Eldar, Jul 28 2025 *)

Crossrefs

Cf. A000040, A000120, A023416, A035103, A072439, A072579, A072580, A072581, A072584.

Sequence in context: A031906 A045390 A289135 * A186687 A256145 A096172

Adjacent sequences: A072579 A072580 A072581 * A072583 A072584 A072585

Keyword

nonn,base,easy

Author

Reinhard Zumkeller, Jun 23 2002

Status

approved