|
|
A050436
|
|
Third-order composites.
|
|
7
|
|
|
16, 21, 25, 26, 28, 33, 36, 38, 39, 42, 48, 49, 50, 52, 55, 56, 57, 60, 64, 68, 69, 70, 72, 74, 77, 78, 80, 84, 87, 88, 90, 93, 94, 95, 98, 100, 104, 105, 106, 110, 111, 115, 117, 118, 119, 121, 122, 124, 125, 126, 130, 133, 135, 138, 140, 141, 145, 146, 147
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
Let C(n) be the n-th composite number, with C(1)=4. Then these are numbers C(C(C(n))).
|
|
EXAMPLE
|
C(C(C(8))) = C(C(15)) = C(25) = 38. So 38 is in the sequence.
|
|
MAPLE
|
C := remove(isprime, [$4..1000]): seq(C[C[C[C[n]]]], n=1..100);
|
|
MATHEMATICA
|
Nest[Values@ KeySelect[MapIndexed[First@ #2 -> #1 &, #], CompositeQ] &, Select[Range@ 150, CompositeQ], 2] (* Michael De Vlieger, Jul 22 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Michael Lugo (mlugo(AT)thelabelguy.com), Dec 22 1999
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|