|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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.
|
|
|
LINKS
|
Table of n, a(n) for n=1..63.
V. Shevelev, Several results on sequences which are similar to the positive integers arXiv:0904.2101 [math.NT], 2009.
|
|
|
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 *)
|
|
|
CROSSREFS
|
Cf. A002828, A159619, A159615, A007814, A004760, A159559, A159560.
Sequence in context: A114454 A008854 A062726 * A328173 A223138 A287676
Adjacent sequences: A159626 A159627 A159628 * A159630 A159631 A159632
|
|
|
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
|
| |
|
|
