OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1001 [Additional term a(42)=10693000 inserted by Georg Fischer, Feb 28 2026]
EXAMPLE
MATHEMATICA
bnoQ[n_]:=With[{fi=FactorInteger[IntegerReverse[n]][[;; , 1]]}, PrimeOmega[IntegerReverse[n]]==2&&(Length[fi]==1||IntegerLength[fi[[1]]]==IntegerLength[fi[[2]]])]; Select[Accumulate[Range[10000]], bnoQ] (* Harvey P. Dale, Feb 28 2026 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
STATUS
approved
