OFFSET
1,1
COMMENTS
Integers > 1 such that A126773(n) = 1.
Conjecture: 1 <= a(n+1) - a(n) <= 4. - R. J. Cano, Feb 27 2017
The conjecture is true since all multiples of 4 are in this sequence. - Charles R Greathouse IV, Feb 28 2017
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
a(n) ~ kn where 1/k = 1/2^2 + 1/2*1/3^2 + 1/2*2/3*1/5^2 + 1/2*2/3*4/5*1/7^2 + ... = A283071 so k = 3.02940306.... - Charles R Greathouse IV, Feb 27 2017
MAPLE
A283050 := proc(n)
option remember;
if n =1 then
4 ;
else
for a from procname(n-1)+1 do
if A126773(a)= 1 then
return a;
end if;
end do:
end if;
end proc:
seq(A283050(n), n=1..100) ; # R. J. Mathar, Mar 03 2017
MATHEMATICA
Select[Range[2, 180], Divisible[#, FactorInteger[#][[1, 1]]^2] &] (* Michael De Vlieger, Feb 27 2017 *)
PROG
(PARI) isok(n) = !(n % factor(n)[1, 1]^2);
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Feb 27 2017
STATUS
approved