OFFSET
1,1
COMMENTS
Almost all numbers in this sequence are 9 mod 10. The first such number is a(10589) = 124659. - Charles R Greathouse IV, Jan 02 2013
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
a(n) ~ k*n log n/(log log n)^8 with k = 1/161280. - Charles R Greathouse IV, Jan 02 2013
MAPLE
A010879 := proc(n) n mod 10 ; end: A001222 := proc(n) numtheory[bigomega](n); end: for n from 4 to 2000 do if not isprime(n) then if A010879(n) = A001222(n) then printf("%d, ", n) ; fi; fi; od: # R. J. Mathar, Jan 31 2009
MATHEMATICA
With[{upto=800}, Select[Complement[Range[upto], Prime[Range[ PrimePi[ upto]]]], Last[ IntegerDigits[#]] ==PrimeOmega[#]&]] (* Harvey P. Dale, Nov 29 2011 *)
PROG
(PARI) is(n)=!isprime(n) && bigomega(n)==n%10 \\ Charles R Greathouse IV, Jan 02 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Jan 30 2009
EXTENSIONS
Extended by R. J. Mathar, Jan 31 2009
Name clarified by Harvey P. Dale and Charles R Greathouse IV, Jan 02 2013
STATUS
approved