OFFSET
1,2
COMMENTS
A variant of the sequence A267758 where the relation has to hold for prime numbers rather than for nonsquares. The sequence starts like the Fibonacci sequence up to 144, then restarts with 4 up to 16, then it restarts from 7 and grows very large.
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..100
FORMULA
Empirical g.f.: (1+x-229*x^11-142*x^12-19*x^15) / (1-x-x^2). - Colin Barker, Jan 27 2016
PROG
(PARI) {a(n, show=0, is=x->issquare(x), a=[1], L=0, U=[])->while(#a<n, show&&if(type(show)=="t_STR", write(show, #a, " ", a[#a]), print1(a[#a]", ")); if(a[#a]>L+1, U=setunion(U, [a[#a]]), L++; while(#U&&U[1]<=L+1, U=U[^1]; L++)); a=concat(a, if(is(a[#a])||#a<2, L+1, a[#a]+a[#a-1]))); if(type(show)=="t_VEC", a, a[#a])}
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 26 2016
STATUS
approved