|
Search: id:A130870
|
|
|
| A130870 |
|
Palindromic primes with squareful neighbors. |
|
+0
1
|
|
| 151, 727, 919, 10601, 14741, 15451, 15551, 16361, 16561, 19891, 30403, 31013, 33533, 34543, 35153, 39293, 70507, 71317, 72227, 73637, 75557, 78787, 79397, 93139, 94049, 94349, 94649, 94849, 94949, 95959, 97579, 1022201, 1055501
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
squarefulQ[n_] := Last[Sort[Transpose[FactorInteger[n]][[2]]]] > 1; palindromeQ[n_] := Reverse[IntegerDigits[n]] == IntegerDigits[n]; Select[Range[3, 2000000], palindromeQ[ # ] && squarefulQ[ # - 1] && squarefulQ[ # + 1] && PrimeQ[ # ] &]
|
|
CROSSREFS
|
Cf. Palindromic subsequence of A075432 - Primes with no square-free neighbors.
Adjacent sequences: A130867 A130868 A130869 this_sequence A130871 A130872 A130873
Sequence in context: A142361 A142506 A139640 this_sequence A143012 A060889 A097640
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Tanya Khovanova (tanyakh(AT)yahoo.com), Jul 24 2007
|
|
|
Search completed in 0.002 seconds
|
