A175088 Numbers m with result 1 under iterations of {r mod (max prime p <= r)} starting at r = m.

1, 4, 6, 8, 12, 14, 18, 20, 24, 27, 30, 32, 35, 38, 42, 44, 48, 51, 54, 57, 60, 62, 65, 68, 72, 74, 77, 80, 84, 87, 90, 93, 95, 98, 102, 104, 108, 110, 114, 117, 119, 121, 125, 128, 132, 135, 138, 140, 143, 145, 147, 150, 152, 155, 158, 161, 164, 168, 171

Offset: 1

Author

Jaroslav Krizek, Jan 28 2010

Keywords

• nonn

Comments

Terms are composites for all n >= 2.

Complement of A175089. [Jaroslav Krizek, Feb 05 2010]

Numbers m such that A121559(m) = 1. - Michel Marcus, Aug 22 2014

Examples

			Iteration procedure for a(6) = 14: 14 mod 13 = 1.
Iteration procedure for a(10) = 27: 27 mod 23 = 4, 4 mod 3 = 1.
		

Crossrefs

Cf. A007917 and A064722 (both for the iterations).

Programs

Mathematica

(x /. Solve[Fold[Mod[#1, #2] &, x, Reverse[Prime /@ Range[40]]] == 1,
    x, Integers]) /. C[1] -> 0 (* Morgan L. Owens, Jun 22 2016 *)

Extensions

More terms from Michel Marcus, Aug 22 2014