login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A320517 Prime k with sigma(sigma(sigma(k))) < 3*k + 1. 0
3, 97, 241, 337, 577, 1249, 3361, 3697, 4801, 6961, 8191, 10657, 14449, 16561, 18049, 23761, 25537, 31249, 32257, 37537, 48049, 49297, 64081, 65521, 77617, 79201, 89041, 120049, 126001, 138337, 140449, 153457, 171697, 174049, 181201, 193441, 208657, 216481 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..38.

MAPLE

isA320517 := n -> isprime(n) and (sigma(sigma(sigma(n))) < 3*n + 1):

S := select(isA320517, [$1..300000]);

MATHEMATICA

Select[Range[250000], PrimeQ[#] && DivisorSigma[1, DivisorSigma[1, DivisorSigma[1, #]]] < 3*# + 1 &] (* Vaclav Kotesovec, Oct 14 2018 *)

PROG

(PARI) isok(n) = isprime(n) && (sigma(sigma(sigma(n))) < 3*n + 1); \\ Michel Marcus, Oct 14 2018

CROSSREFS

Cf. A000203, A320513.

Sequence in context: A100494 A209554 A320513 * A243155 A201843 A278202

Adjacent sequences:  A320514 A320515 A320516 * A320518 A320519 A320520

KEYWORD

nonn

AUTHOR

Peter Luschny, Oct 14 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 20 16:15 EDT 2019. Contains 325185 sequences. (Running on oeis4.)