|
Search: id:A112662
|
|
|
| A112662 |
|
Cubes of the form semiprime(k) + k-th composite number. |
|
+0
4
|
|
| 8, 27, 64, 216, 343, 1000, 24389, 27000, 35937, 42875, 46656, 68921, 74088, 97336, 148877, 226981, 373248, 405224, 456533, 551368, 681472, 970299, 1191016, 1771561, 1860867, 2048383, 2352637, 3112136, 3375000, 4019679, 4410944
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Corresponding k's: 1, 6, 15, 50, 78, 219, 4803, 5303, 6973, 8261, 8968, 13058, 13972, 18210, 27426, 41167, ..., . - Robert G. Wilson v (rgwv(at)rgwv.com), Dec 30 2005
The corresponding cube roots: 2, 3, 4, 6, 7, 10, 29, ..., . - Robert G. Wilson v (rgwv(at)rgwv.com), Dec 30 2005
|
|
MATHEMATICA
|
Composite[n_Integer] := FixedPoint[n + PrimePi@# + 1 &, n + PrimePi@n + 1]; fQ[n_] := Plus @@ Last /@ FactorInteger@n == 2; c = 0; t = {}; Do[ If[fQ[n], c++; a = n + Composite[c]; If[ IntegerQ[a^(1/3)], AppendTo[t, a]]], {n, 10^7}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Sequence in context: A111103 A076969 A050462 this_sequence A121652 A112989 A018832
Adjacent sequences: A112659 A112660 A112661 this_sequence A112663 A112664 A112665
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Dec 29 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Dec 30 2005
|
|
|
Search completed in 0.002 seconds
|
