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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A081635 Class 7+ primes. 11
15013, 16333, 22093, 24841, 43321, 49003, 52517, 54721, 62533, 63761, 69061, 69073, 70061, 74597, 75781, 75793, 75913, 82561, 83233, 84673, 87433, 87509, 88793, 91081, 92761, 94321, 98737, 99367, 101641, 105097, 110881, 111973, 114343 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

REFERENCES

R. K. Guy, Unsolved Problems in Number Theory, A18.

LINKS

T. D. Noe, Table of n, a(n) for n=1..10000

MAPLE

For Maple program see Mathar link in A005105.

MATHEMATICA

PrimeFactors[n_Integer] := Flatten[ Table[ #[[1]], {1}] & /@ FactorInteger[n]]; f[n_Integer] := Block[{m = n}, If[m == 0, m = 1, While[ IntegerQ[m/2], m /= 2]; While[ IntegerQ[m/3], m /= 3]]; Apply[Times, PrimeFactors[m] + 1]]; ClassPlusNbr[n_] := Length[ NestWhileList[f, n, UnsameQ, All]] - 3; Prime[ Select[ Range[10820], ClassPlusNbr[ Prime[ # ]] == 7 &]]

CROSSREFS

Cf. A005113, A005105, A005106, A005107, A005108, A081633, A081634, A081636, A081637, A081638, A081639.

Sequence in context: A145275 A234654 A064730 * A165614 A104875 A046391

Adjacent sequences:  A081632 A081633 A081634 * A081636 A081637 A081638

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Mar 20 2003

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 March 22 10:07 EDT 2019. Contains 321421 sequences. (Running on oeis4.)