

A242754


Positive integers k such that k*p == 1 (mod prime(k)) for some prime p < prime(k).


5



2, 3, 4, 6, 7, 10, 11, 13, 17, 18, 21, 31, 37, 40, 41, 46, 48, 49, 52, 53, 58, 60, 64, 66, 70, 71, 72, 73, 75, 81, 85, 92, 93, 96, 100, 102, 109, 117, 119, 127, 136, 137, 140, 143, 145, 146, 149, 160, 162, 179, 189, 194, 200, 206, 215, 232, 233, 243, 246, 247
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

According to the conjecture in A242753, this sequence should have infinitely many terms.
Conjecture: The number of terms not exceeding x > 1 has the main term x/(log x) as x tends to infinity.


LINKS

ZhiWei Sun, Table of n, a(n) for n = 1..10000


EXAMPLE

a(4) = 6 since 6*11 == 1 (mod prime(6)=13) with 11 prime, but 5*9 == 1 (mod prime(5)=11) with 9 composite.


MATHEMATICA

p[n_]:=PrimeQ[PowerMod[n, 1, Prime[n]]]
n=0; Do[If[p[k], n=n+1; Print[n, " ", k]]; Continue, {k, 1, 247}]


CROSSREFS

Cf. A000040, A000720, A242425, A242748, A242750, A242752, A242753, A242755.
Sequence in context: A287531 A047518 A179834 * A120440 A284384 A049995
Adjacent sequences: A242751 A242752 A242753 * A242755 A242756 A242757


KEYWORD

nonn


AUTHOR

ZhiWei Sun, May 22 2014


STATUS

approved



