|
| |
|
|
A074240
|
|
Numbers n such that n-th prime = sigma(sigma(n)) + 1.
|
|
0
| | |
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| There are no other numbers < 3400000. - Stefan Steinerberger (hansibal(AT)hotmail.com), Nov 20 2005
|
|
|
EXAMPLE
| sigma(sigma(110)) + 1 = sigma(216) + 1 = 601 = prime(110).
|
|
|
MATHEMATICA
| Select[Range[10^6], Prime[ # ] == DivisorSigma[1, DivisorSigma[1, # ]] + 1 &]
|
|
|
PROG
| (MuPAD): ind := 1; nu := 2; repeat w := numlib::sigma(numlib::sigma(ind))+1; if w = nu then print(ind); end_if; ind := ind+1; nu := nextprime(nu+1); until ind>3400000 end_repeat; (Steinerberger)
|
|
|
CROSSREFS
| Sequence in context: A158539 A063668 A156852 * A205610 A159484 A200877
Adjacent sequences: A074237 A074238 A074239 * A074241 A074242 A074243
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Sep 18 2002
|
| |
|
|
