[go: up one dir, main page]

login
A162199
Odd cyclops numbers.
0
101, 103, 105, 107, 109, 201, 203, 205, 207, 209, 301, 303, 305, 307, 309, 401, 403, 405, 407, 409, 501, 503, 505, 507, 509, 601, 603, 605, 607, 609, 701, 703, 705, 707, 709, 801, 803, 805, 807, 809, 901, 903, 905, 907, 909, 11011, 11013, 11015, 11017
OFFSET
1,1
MAPLE
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
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jul 04 2009
EXTENSIONS
More terms from R. J. Mathar, Jul 13 2009
STATUS
approved