login

Revision History for A046667

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
#11 by Bruno Berselli at Wed Apr 08 11:54:51 EDT 2020
STATUS

proposed

approved

#10 by Vincenzo Librandi at Wed Apr 08 04:36:15 EDT 2020
STATUS

editing

proposed

#9 by Vincenzo Librandi at Wed Apr 08 04:36:09 EDT 2020
MATHEMATICA

Table[(1/2)(n - First@(First/@FactorInteger[n])), {n, 2, 100}] (* Vincenzo Librandi, Apr 08 2020 *)

STATUS

approved

editing

#8 by Susanna Cuyler at Sun Mar 08 00:20:29 EST 2020
STATUS

proposed

approved

#7 by Andrew Howroyd at Sat Mar 07 22:29:22 EST 2020
STATUS

editing

proposed

#6 by Andrew Howroyd at Sat Mar 07 22:29:11 EST 2020
LINKS

Andrew Howroyd, <a href="/A046667/b046667.txt">Table of n, a(n) for n = 2..1000</a>

PROG

(PARI) a(n)={if(n==1, 0, my(f=factor(n)[, 1]); (n-f[1])/2)} \\ Andrew Howroyd, Mar 07 2020

CROSSREFS

Cf. A046666.

STATUS

proposed

editing

#5 by Jon E. Schoenfield at Sat Mar 07 21:18:49 EST 2020
STATUS

editing

proposed

#4 by Jon E. Schoenfield at Sat Mar 07 21:18:32 EST 2020
NAME

a(n) = A046666(n)/2.

AUTHOR
STATUS

approved

editing

#3 by Russ Cox at Fri Mar 30 16:48:22 EDT 2012
AUTHOR

_N. J. A. Sloane (njas(AT)research.att.com)_.

Discussion
Fri Mar 30
16:48
OEIS Server: https://oeis.org/edit/global/110
#2 by N. J. A. Sloane at Fri Feb 27 03:00:00 EST 2009
KEYWORD

nonn,new

nonn

AUTHOR

N. J. A. Sloane (njas(AT)research.att.com).