[go: up one dir, main page]

login
Revision History for A207193 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Auxiliary function for computing the Carmichael lambda function (A002322).
(history; published version)
#10 by Charles R Greathouse IV at Sat Jul 13 12:04:22 EDT 2013
LINKS

_Reinhard Zumkeller_, , <a href="/A207193/b207193.txt">Table of n, a(n) for n = 1..10000</a>

Discussion
Sat Jul 13
12:04
OEIS Server: https://oeis.org/edit/global/1934
#9 by N. J. A. Sloane at Fri Feb 22 21:39:12 EST 2013
LINKS

_Reinhard Zumkeller, _, <a href="/A207193/b207193.txt">Table of n, a(n) for n = 1..10000</a>

Discussion
Fri Feb 22
21:39
OEIS Server: https://oeis.org/edit/global/1866
#8 by Russ Cox at Fri Mar 30 18:51:11 EDT 2012
AUTHOR

_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, Feb 16 2012

Discussion
Fri Mar 30
18:51
OEIS Server: https://oeis.org/edit/global/246
#7 by Bruno Berselli at Sat Feb 18 11:56:11 EST 2012
STATUS

editing

approved

#6 by Bruno Berselli at Sat Feb 18 11:56:00 EST 2012
FORMULA

if If p = 2 and e > 2 then a(n)=2^(e-2), otherwise a(n)=(p-1)*p^(e-1), where p^e = A000961(n), the n-th prime power.

STATUS

proposed

editing

#5 by Joerg Arndt at Fri Feb 17 04:35:15 EST 2012
STATUS

editing

proposed

#4 by Joerg Arndt at Fri Feb 17 04:35:09 EST 2012
FORMULA

a(n) = if p = 2 and e > 2 then a(n)=2^(e-2) else , otherwise a(n)=(p-1)*p^(e-1), where p^e = A000961(n), the n-th prime power.

STATUS

proposed

editing

#3 by Reinhard Zumkeller at Thu Feb 16 14:20:56 EST 2012
STATUS

editing

proposed

#2 by Reinhard Zumkeller at Thu Feb 16 11:40:40 EST 2012
NAME

allocated Auxiliary function for Reinhard Zumkellercomputing the Carmichael lambda function (A002322).

DATA

1, 1, 2, 2, 4, 6, 2, 6, 10, 12, 4, 16, 18, 22, 20, 18, 28, 30, 8, 36, 40, 42, 46, 42, 52, 58, 60, 16, 66, 70, 72, 78, 54, 82, 88, 96, 100, 102, 106, 108, 112, 110, 100, 126, 32, 130, 136, 138, 148, 150, 156, 162, 166, 156, 172, 178, 180, 190, 192, 196, 198

OFFSET

1,3

LINKS

Reinhard Zumkeller, <a href="/A207193/b207193.txt">Table of n, a(n) for n = 1..10000</a>

FORMULA

a(n) = if p = 2 and e > 2 then 2^(e-2) else (p-1)*p^(e-1), where p^e = A000961(n), the n-th prime power.

PROG

(Haskell)

a207193 1 = 1

a207193 n | p == 2 && e > 2 = 2 ^ (e - 2)

| otherwise = (p - 1) * p ^ (e - 1)

where p = a025473 n; e = a025474 n

CROSSREFS
KEYWORD

allocated

nonn

AUTHOR

Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Feb 16 2012

STATUS

approved

editing

#1 by Reinhard Zumkeller at Wed Feb 15 15:14:53 EST 2012
NAME

allocated for Reinhard Zumkeller

KEYWORD

allocated

STATUS

approved