This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A133978 Home primes whose homeliness is 12. 12
 378997, 777643, 3127979, 3127997, 3136607, 3173761, 3374729, 3377999, 3759263, 3774161, 3791387, 3943967, 7342469, 7521641, 7540541, 7767709 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Number of terms < 10^n: 0, 0, 0, 0, 0, 2, 16, .... 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 = 12 - 2; lsu = {}; Do[ If[ lst[[n]] == lst[[n + d]] && lst[[n - 1]] != lst[[n]] && lst[[n]] != lst[[n + d + 1]], AppendTo[lsu, lst[[n]]]], {n, 188004 - d - 1}]; Take[Union@ lsu, 31] CROSSREFS Cf. A037274, A118756, A133977, A133956, A000014, A133958, A133960, A133962, A133964, A133966, A133968, A133970, A133972, A133974, A133976. Sequence in context: A203740 A133975 A133977 * A159265 A133976 A206365 Adjacent sequences:  A133975 A133976 A133977 * A133979 A133980 A133981 KEYWORD nonn 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 | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified May 24 15:09 EDT 2013. Contains 225624 sequences.