OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
EXAMPLE
10 = 2*5 is present as 2^2 < 5.
50 = 2*5*5 is present as 2^2 < 5.
51 = 3*17 is present as 3^2 < 17.
66 = 2*3*11 is present as 3^2 < 11.
PROG
(Scheme, with Antti Karttunen's IntSeq-library)
(define A253785 (MATCHING-POS 1 1 (lambda (n) (not (numbers-densely-distributed? (ifactor n))))))
(define (numbers-densely-distributed? lista) (cond ((null? lista) #t) ((null? (cdr lista)) #t) ((< (A000290 (car lista)) (cadr lista)) #f) (else (numbers-densely-distributed? (cdr lista)))))
CROSSREFS
Complement: A253784.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 16 2015
STATUS
approved