Skip to main content
deleted 6 characters in body
Source Link
Emigna
  • 53.2k
  • 5
  • 44
  • 164

05AB1E, 19 1818 17 bytes

[Ð17SØså#pi·<ëDfθ[ÐƵηfså#pi·<ëDfθ- 

Try it online!Try it online!

Explanation

[  # # loop until Ð  så # a copy of the current value is contained in 17SØƵηf # the list of primes withunique indicesprime 1factors andof 7171   pi # if the current value is prime   ·< # double and decrement   ë - # else subtract   Dfθ # the largest prime factor of a copy of the current value 

05AB1E, 19 18 bytes

[Ð17SØså#pi·<ëDfθ- 

Try it online!

Explanation

[  # # loop until Ð  så # a copy of the current value is contained in 17SØ # the list of primes with indices 1 and 7   pi # if the current value is prime   ·< # double and decrement   ë - # else subtract   Dfθ # the largest prime factor of a copy of the current value 

05AB1E, 19 18 17 bytes

[ÐƵηfså#pi·<ëDfθ- 

Try it online!

Explanation

[ # # loop until Ð så # a copy of the current value is contained in Ƶηf # the unique prime factors of 171 pi # if the current value is prime ·< # double and decrement ë - # else subtract Dfθ # the largest prime factor of a copy of the current value 
added 12 characters in body
Source Link
Emigna
  • 53.2k
  • 5
  • 44
  • 164

05AB1E, 1919 18 bytes

[D17SØså#Dpi·<ëDfθ[Ð17SØså#pi·<ëDfθ- 

Try it online!Try it online!

Explanation

[ # # loop until Ð så # a copy of the current value is contained in 17SØ # the list of primes with indices 1 and 7 pi # if the current value is prime ·< # double and decrement ë - # else subtract Dfθ # the largest prime factor of a copy of the current value 

05AB1E, 19 bytes

[D17SØså#Dpi·<ëDfθ- 

Try it online!

05AB1E, 19 18 bytes

[Ð17SØså#pi·<ëDfθ- 

Try it online!

Explanation

[ # # loop until Ð så # a copy of the current value is contained in 17SØ # the list of primes with indices 1 and 7 pi # if the current value is prime ·< # double and decrement ë - # else subtract Dfθ # the largest prime factor of a copy of the current value 
Source Link
Emigna
  • 53.2k
  • 5
  • 44
  • 164

05AB1E, 19 bytes

[D17SØså#Dpi·<ëDfθ- 

Try it online!