login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A133979 Home primes whose homeliness is greater than 12. 11
747521, 2333797, 2337397, 2337691, 3373547, 3373907, 3378317, 3379829, 3574657, 3639997, 3733967, 3746507, 3777419, 3784463, 3789293, 3791423, 3795569, 3798923, 4389883, 7548461 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Number of terms < 10^n: 0, 0, 0, 0, 0, 1, 20, ....
LINKS
MATHEMATICA
lst = {}; f[n_] := FromDigits@ Flatten[ IntegerDigits@ Table[ #[[1]], {#[[2]]}] & /@ FactorInteger@n, 2]; h[n_] := NestWhileList[f@# &, n, !PrimeQ@# &, 1, 28]; Do[p = h[n][[ -1]]; If[ PrimeQ@p && p < 10^7 && p != n, Print[{n, p}]; AppendTo[lst, p]], {n, 2, 1000}];
d = 13 - 2; lsu = {}; Do[ If[ lst[[n]] == lst[[n + d]], AppendTo[ lsu, lst[[n]] ]], {n, 188004 - d - 1}]; Union@ lsu
CROSSREFS
Sequence in context: A119403 A184149 A339105 * A352345 A205743 A206675
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Sep 30 2007
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 13 15:38 EDT 2024. Contains 371644 sequences. (Running on oeis4.)