OFFSET
1,1
COMMENTS
k is a term if and only if k = Product_{i=1..t} p_i^e_i with e_i > p_i for some i.
A182938(a(n)) = 0. - Reinhard Zumkeller, Feb 18 2012
The asymptotic density of this sequence is 1 - Product_{p prime} 1 - 1/p^(p+1) = 0.13585792767780221591... - Amiram Eldar, Nov 24 2020
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
R. Hampel, The length of the shortest period of rests of numbers n^n, Ann. Polon. Math. 1 (1955), 360-366.
MATHEMATICA
j[p_, e_]:=e>p; j[n_]:={False}==Union@Module[{fa=FactorInteger[n]}, Table[j[fa[[i, 1]], fa[[i, 2]]], {i, 1, Length[fa]}]]; Select[Range[1000], !j[#]&]
PROG
(Haskell)
a185359 n = a185359_list !! (n-1)
a185359_list = [x | x <- [1..], or $ zipWith (<)
(a027748_row x) (map toInteger $ a124010_row x)]
-- Reinhard Zumkeller, Feb 18 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Jan 21 2012
STATUS
approved
