OFFSET

1,2

COMMENTS

The asymptotic density of this sequence is Product_{p prime} 1 - 1/p^(p+1) = 0.86414207232219778408... - Amiram Eldar, Nov 24 2020

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

MATHEMATICA

okQ[n_] := AllTrue[FactorInteger[n], #[[2]] <= #[[1]]&];

Select[Range[100], okQ] (* Jean-François Alcover, Jun 08 2016 *)

PROG

(Haskell)

a207481 n = a207481_list !! (n-1)

a207481_list = [x | x <- [1..], and $ zipWith (<=)

(map toInteger $ a124010_row x) (a027748_row x) ]

CROSSREFS

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Feb 18 2012

STATUS

approved