

A107436


a(n) = (a^5)(n1) + a(na(n1)) = a(a(a(a(a(n1))))) + a(na(n1)), a(1) = a(2) = 1.


1



1, 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS

Multirecursive sequence suggested by A004000: 5th level.
If A004000 is a level 2 recursion, A087817 is a level 3, and A087836 is a level 4, then this sequence is the 5th level. Other multirecursives approximate this sequence for initial terms: A087845, A087847 Benoit Cloitre's sequence is: d = Table[Ceiling[n^.56], {n, 1, digits}].
Satisfies a(n) = A002024(n1) up to n=2280, but is strictly larger thereafter. The graph shows an interesting "phase break" (author's terms in A087836) just after 2281. Are there other such "irregularities" to be expected (when a(n) attains 2281, or later)?  M. F. Hasler, Apr 20 2014


LINKS

M. F. Hasler, Table of n, a(n) for n = 1..10000


EXAMPLE

From n=2 to n=2280, a(n)=A002024(n1); in particular, a(2280)=68 is preceded by 67 copies of 67. But a(2281) = a(a(a(a(a(2280))))) + a(2281a(2280)) = a(a(a(a(68)))) + a(228168) = a(a(a(12))) + a(2213) = a(a(5)) + 67 =69.  M. F. Hasler, Apr 21 2014


MAPLE

a := proc(n) option remember; `if`(n<3, 1, (a@@(5))(n1)+a(na(n1))) end; # Peter Luschny, Apr 23 2014


MATHEMATICA

a[1] = a[2] = 1; a[n_Integer?Positive] := a[n] = Nest[a, n1, 5] + a[n  a[n  1]]; Table[a[n], {n, 1, 255}]


PROG

(PARI) a107436=[1, 1]; A107436(n)={if(n>#a107436, a107436=concat(a107436, vector(n#a107436)), a107436[n] && return(a107436[n])); t=A107436(n1); a107436[n]=A107436(nt)+A107436(A107436(A107436(A107436(t))))} \\ M. F. Hasler, Apr 21 2014


CROSSREFS

Cf. A028310, A004000, A087817, A087836, A087845, A087847.
Sequence in context: A274094 A274093 A087847 * A002024 A123578 A087836
Adjacent sequences: A107433 A107434 A107435 * A107437 A107438 A107439


KEYWORD

nonn


AUTHOR

Roger L. Bagula, May 26 2005


STATUS

approved



