|
%I #6 Feb 26 2019 23:00:44
%S 101,103,105,107,109,201,203,205,207,209,301,303,305,307,309,401,403,
%T 405,407,409,501,503,505,507,509,601,603,605,607,609,701,703,705,707,
%U 709,801,803,805,807,809,901,903,905,907,909,11011,11013,11015,11017
%N Odd cyclops numbers.
%p isA134808 := proc(n) local dgs,ndgs,d ; dgs := convert(n,base,10) ; ndgs := nops(dgs) ; if ndgs mod 2 = 0 then false; else for d from 1 to ndgs do if d = (ndgs+1)/2 and op(d,dgs) <> 0 then RETURN(false); elif d <> (ndgs+1)/2 and op(d,dgs) = 0 then RETURN(false); fi; od: true; fi; end: for n from 1 to 11100 by 2 do if isA134808(n) then printf("%d,",n) ; fi; od: # _R. J. Mathar_, Jul 13 2009
%Y Cf. A134808, A134809, A162198.
%K easy,nonn
%O 1,1
%A _Omar E. Pol_, Jul 04 2009
%E More terms from _R. J. Mathar_, Jul 13 2009
|
