login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A014684 In the sequence of positive integers subtract 1 from each prime number. 11
1, 1, 2, 4, 4, 6, 6, 8, 9, 10, 10, 12, 12, 14, 15, 16, 16, 18, 18, 20, 21, 22, 22, 24, 25, 26, 27, 28, 28, 30, 30, 32, 33, 34, 35, 36, 36, 38, 39, 40, 40, 42, 42, 44, 45, 46, 46, 48, 49, 50, 51, 52, 52, 54, 55, 56, 57, 58, 58, 60, 60, 62, 63, 64, 65, 66, 66, 68, 69, 70, 70, 72 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = A005171(n) + n - 1.

a(n) = phi(n!)/phi((n-1)!). - Vladeta Jovovic, Nov 30 2002

For n > 3: a(n) = A113523(n) = A179278(n). - Reinhard Zumkeller, Jul 08 2010

a(n) = n - A010051(n). - Reinhard Zumkeller, Sep 10 2013

MATHEMATICA

Table[If[PrimeQ[n], n-1, n], {n, 100}] (* Harvey P. Dale, Aug 27 2015 *)

PROG

(Haskell)

a014684 n = n - fromIntegral (a010051 n)

-- Reinhard Zumkeller, Sep 10 2013

(MAGMA) [n - (IsPrime(n) select 1 else 0): n in [1..80]]; // Bruno Berselli, Jul 18 2016

CROSSREFS

Cf. A000010, A048855, A113638.

Sequence in context: A210466 A085914 A211390 * A113638 A187323 A262504

Adjacent sequences:  A014681 A014682 A014683 * A014685 A014686 A014687

KEYWORD

nonn,easy

AUTHOR

Mohammad K. Azarian

EXTENSIONS

More terms from Andrew J. Gacek (andrew(AT)dgi.net)

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 22 06:26 EST 2019. Contains 329389 sequences. (Running on oeis4.)