|
|
A048977
|
|
Primes arising in A048969.
|
|
0
|
|
|
3, 7, 13, 19, 31, 61, 127, 127, 331, 307, 307, 631, 1801, 1723, 3169, 1093, 1723, 3571, 1093, 3221, 5419, 3541, 3541, 8269, 5113, 5113, 13267, 8011, 8011, 16651, 10303, 19441, 10303, 24571, 17293, 17293, 28057, 30103, 55897, 28057, 59221, 30103, 8191, 19531
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
p[n_]:=Module[{c=DivisorSigma[1, n]/DivisorSigma[0, n]}, If[PrimeQ[c], c, 0]]; nn=62000; With[{comps=Complement[Range[nn], Prime[Range[PrimePi[nn]]]]}, Select[ p/@comps, #!=0&]] (* Harvey P. Dale, Feb 19 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Jun 17 2001
|
|
STATUS
|
approved
|
|
|
|