A072874 Numbers k such that A000213(k) == 1 (mod k).

1, 2, 4, 8, 16, 24, 28, 32, 36, 47, 53, 56, 64, 72, 80, 94, 103, 106, 128, 163, 192, 199, 206, 256, 257, 269, 311, 326, 336, 384, 397, 398, 401, 419, 421, 456, 499, 512, 514, 536, 538, 587, 599, 617, 622, 683, 700, 757, 768, 773, 794, 802, 838, 842, 863, 883, 907

Offset

1,2

Links

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

Mathematica

m = 1000; t = LinearRecurrence[{1, 1, 1}, {1, 1, 3}, m]; Position[(t - 1)/Range[m], _?IntegerQ] // Flatten (* Amiram Eldar, May 05 2022 *)

Crossrefs

Cf. A000213, A023173.

Sequence in context: A108567 A354754 A261890 * A160158 A010072 A318654

Adjacent sequences: A072871 A072872 A072873 * A072875 A072876 A072877

Keyword

easy,nonn

Author

Benoit Cloitre, Jul 28 2002

Extensions

a(1) = 1 inserted by Amiram Eldar, May 05 2022

Status

approved