A259183 Complement of A259444.

4, 8, 9, 25, 27, 32, 36, 49, 64, 100, 121, 125, 128, 144, 169, 196, 216, 225, 243, 256, 289, 324, 343, 361, 400, 441, 484, 529, 576, 676, 729, 784, 841, 900, 961, 1000, 1024, 1089, 1156, 1225, 1331, 1369, 1444, 1521, 1600, 1681, 1728, 1764

Offset: 1

Author

Anders Hellström, Jul 19 2015 following suggestion from N. J. A. Sloane

Keywords

• nonn

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Programs

PARI

main(s)=my(v=vector(s), v2=[], x, r, n); v[1]=2; for(n=2, s, v[n]=v[n-1]+1; until(x==1, for(r=1, n-1, for(s=1, n-1, if((v[r]^v[s])===v[n], v2=concat(v2, v[n]); print1(v[n], ", ");v[n]++; x=0; break(2), x=1))))); v2;

Formula

a(n) ~ n^2. - Charles R Greathouse IV, Aug 18 2015