|
|
|
|
#16 by Michel Marcus at Sat Apr 13 11:25:24 EDT 2019
|
|
|
|
#15 by Joerg Arndt at Sat Apr 13 11:01:14 EDT 2019
|
|
|
|
#14 by Jon E. Schoenfield at Sat Apr 13 10:43:09 EDT 2019
|
|
|
|
#13 by Jon E. Schoenfield at Sat Apr 13 10:43:06 EDT 2019
|
| NAME
|
Numbers such that the sum of theirwhose even divisors is 2 times a prime.
|
| COMMENTS
|
(See A195268 with, which has similar properties)..)
|
| FORMULA
|
Conjecture: a(n) = 2*A023194(n). - ). - _R. J. Mathar, _, Sep 15 2011
|
| EXAMPLE
|
The divisors of 18 are { {1, 2, 3, 6, 9, 18}, and half the sum of the even divisors is (2 + 6 + 18)/2 = 26/2 = 13 , which is prime. Hence 18 is in the sequence.
|
| MAPLE
|
for n from 1 do if isA195334(n) then print(n); end if; end do: # : # _R. J. Mathar, _, Sep 15 2011
|
| STATUS
|
approved
editing
|
|
|
|
#12 by Charles R Greathouse IV at Thu Nov 21 12:50:20 EST 2013
|
| MATHEMATICA
|
Select[Range[2000000], PrimeQ[Total[Select[Divisors[#], EvenQ]]/2]&] (* From ]&] (* _Harvey P. Dale, _, Mar 07 2012 *)
|
|
|
Discussion
|
Thu Nov 21
| 12:50
| OEIS Server: https://oeis.org/edit/global/2062
|
|
|
|
#11 by Russ Cox at Fri Mar 30 18:35:59 EDT 2012
|
| AUTHOR
|
_Michel Lagneau (mn.lagneau2(AT)orange.fr), _, Sep 15 2011
|
|
|
Discussion
|
Fri Mar 30
| 18:35
| OEIS Server: https://oeis.org/edit/global/205
|
|
|
|
#10 by Harvey P. Dale at Wed Mar 07 17:05:12 EST 2012
|
|
|
|
#9 by Harvey P. Dale at Wed Mar 07 17:05:08 EST 2012
|
| MATHEMATICA
|
Select[Range[2000000], PrimeQ[Total[Select[Divisors[#], EvenQ]]/2]&] (* From Harvey P. Dale, Mar 07 2012 *)
|
| STATUS
|
approved
editing
|
|
|
|
#8 by T. D. Noe at Thu Sep 15 19:31:03 EDT 2011
|
|
|
|
#7 by Michel Lagneau at Thu Sep 15 16:31:34 EDT 2011
|
|
|
|