

A175075


Primes q with result 2 under iterations of {r mod (max prime p < r)} starting at r = q.


4



2, 5, 7, 13, 19, 31, 43, 61, 73, 103, 109, 139, 151, 181, 193, 199, 229, 241, 271, 283, 313, 349, 421, 433, 463, 523, 571, 601, 619, 643, 661, 811, 823, 829, 859, 883, 1021, 1033, 1051, 1063, 1093, 1153, 1231, 1279, 1291, 1303, 1321, 1429, 1453, 1483, 1489
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

a(1) = 2, a(n) = A006512(n1) for 2 <= n <= 82, a(83) = 2999. Sequence is the union of A006512 and A175080. Subsequence of A175072. Primes q with some results of {2, 28, 36, 52, 58, 66, ... } under first step of iteration of {r mod (max prime p < r)} starting at r = q, i.e. number 2 and primes q such that difference q and previous prime is equal to some of the values 2, 28, 36, 52, 58, 66, ...


LINKS

Table of n, a(n) for n=1..51.


FORMULA

A175072 \ A175076. [From Jaroslav Krizek, Jan 30 2010; Anumber corrected by R. J. Mathar, Sep 25 2010]


EXAMPLE

Iteration procedure for a(5) = 19: 19 mod 17 = 2. Iteration procedure for a(83) = 2999: 2999 mod 2971 = 28, 28 mod 23 = 5, 5 mod 3 = 2.


MATHEMATICA

fQ[p_] := Block[{r = p}, While[r > 2, r = Mod[r, NextPrime[r, 1]]]; r == 2]; Select[ Prime@ Range@ 253, fQ] (* Robert G. Wilson v, Aug 09 2010 *)


CROSSREFS

Sequence in context: A069351 A275011 A094743 * A262392 A056985 A082182
Adjacent sequences: A175072 A175073 A175074 * A175076 A175077 A175078


KEYWORD

nonn


AUTHOR

Jaroslav Krizek, Jan 23 2010


EXTENSIONS

More terms from Robert G. Wilson v, Aug 09 2010
A175080 inserted in comment  R. J. Mathar, Sep 25 2010


STATUS

approved



