login
A159629
Slowest increasing sequence beginning with a(1)=4 such that A002828(a(n)) = A002828(n).
5
4, 5, 6, 9, 10, 11, 15, 17, 25, 26, 27, 30, 32, 33, 39, 49, 50, 52, 54, 58, 59, 62, 63, 66, 81, 82, 83, 87, 89, 91, 92, 97, 99, 101, 102, 121, 122, 123, 124, 125, 128, 129, 131, 132, 136, 138, 143, 147, 169, 170, 171, 173, 178, 179, 183, 184, 186, 193, 195, 199, 200, 201, 207
OFFSET
1,1
COMMENTS
Conjecture: For every m>2 there exists a minimum index N(m) such that the minimal increasing recursive sequence S_m(n) beginning with m^2 with the condition A002828(S_m(n)) = A002828(n) coincides with a(n) for all n>N.
FORMULA
a(n+1) = min { l > a(n) : A002828(l) = A002828(n+1) }.
MATHEMATICA
a2828[n_] := Which[SquaresR[1, n]>0, 1, SquaresR[2, n]>0, 2, SquaresR[3, n] > 0, 3, True, 4];
a[1] = 4; a[n_] := a[n] = For[k = a[n-1]+1, True, k++, If[a2828[k] == a2828[n], Return[k]]];
Array[a, 63] (* Jean-François Alcover, Jul 28 2018 *)
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 17 2009, May 04 2009
EXTENSIONS
137 replaced by 136, extended by R. J. Mathar, Sep 17 2009
STATUS
approved